fgrep -w -f list.txt largefile.txt 

##</code><code>##

my @list = <$list>;

my @large = <$large>;

foreach my $test (@list){
        print grep (/^$test/,@large);

}