ins @$_ for map {xtend $_, qw(P E Pl)} (oh oh oh \%T);