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