my (@a, @b);
# .  .  .
# initialize variables 
# .  .  .
my @m = map { my $x = $_; grep { /^$x$/ } @b; } @a;
print @m;