my @l3 = map { my $f = $_; ((grep { $f eq $_ } @l2),'null')[0] } @l1;