Shell Programming and Scripting

foreach $test (@num)
{
foreach $record (@neet)
{
if ($record =~ /$test/){
print "$record \n";
print $test;
}
}
}

vnix$ cat neet
#!/usr/bin/perl

my (@num) = qw(foo bar baz);
my (@neet) = qw (food bar moobaz);

foreach $test (@num)
{
    foreach $record (@neet)
    {
        if ($record =~ /$test/)
	{
	    print "$record\n";
	    print $test;
	    print "\n";  # I assume you want, too
	}
    }
}
vnix$ perl neet
food
foo
bar
bar
moobaz
baz