grep -f file1 file2

##</code><code>##

my $a;
my @foo = qw/tom steve bill roger bob/;
my @bar = qw/roger;99 steve;56 ted;88 tom;54/;
for($a=0;$a<@foo;$a++) {
        printf("%s %s\n",$foo[$a],grep(/$foo[$a]/,@bar));
        }
print "----\n";
for($a=0;$a<@foo;$a++) {
        # printf("%s\n", grep(/$foo[$a]/,@bar) );
        printf("%s\n", (split /;/, grep(/$foo[$a]/,@bar))[0] );
        }

--output before split--
tom tom;54
steve steve;56
bill
roger roger;99
bob
----
tom;54
steve;56

roger;99

--output using split--
tom tom;54
steve steve;56
bill
roger roger;99
bob
----
1
1
0
1
0