my @l1 = qw(Date IndexID Maturity OnTheRun CompositePrice 
CompositeSpread ModelPrice ModelSpread Depth Heat);

my @l2 = qw(OnTheRun CompositePrice CompositeSpread Depth);

my @l3;

{
    local $" = q{|};
    @l3 = map {m{^@l2$} ? $_ : q{null}} @l1;
}