If you judge whether a value is "present" by string equality (and it would seem you do), you could just use a hash:

my %map;
@map{@l2} = ();
my @list = map { exists $map{$_} ? $_ : 'null' } @l1;
[download]

( Also: "perldar"++ )