fred 20.4 harv 5.6 tony 5.13 dennis 401.1 #### open(FILE, "input.dat"); @list; while() { chomp; push @list, $_; } $i="harv"; $loc=-1; $cnt=0; foreach $list(@list) { if($i eq $list) { print "YES!\n"; } }