my @a = qw( a b c );
my @b = qw( a 3 c );

for my $elem (@a){
    print $elem if grep { $elem eq $_ } @b;
}