my %hash;
@hash{@l2} = @l2;
my @newlist = @hash{@l1};

##</code><code>##

my @newlist = map defined($_)?$_:'null', @hash{@l1};