$#=" %@{[2*length$a]}.f";print map{$j+1..($j+=++$i),$/}1..$a