#!/usr/bin/perl #blow off this aray #@ary = qw(1 2 3 4 5 6 7); #set up the aray this way; %keray = qw(1 2 3 4 5 6); for(%keray){ if (/2/){ print "$_\n"; } } # sub disappers