This works:

@list = qw(
        fred
        20.4
        harv
        5.6
        tony
        5.13
        dennis
        401.1
        );

$i="harv";

foreach $list(@list) {
    if($i eq $list) {
        print "YES!\n";
    }
}
[download]

Suggest you add open (FILE, "input.dat") or die "Oops can't open input.dat Perl says $!\n"; which will *probably* tell you that perl cna't find your file. Also you don't need to push your data into an array as you do but that is by the by.

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print