>perl -wMstrict -le
"my @sorted = (1, 2, 3, 4, 5, 6);
 my @unsorted = map { $_, 99 } @sorted;
 print qq{@unsorted};
"
1 99 2 99 3 99 4 99 5 99 6 99