$a=5;
print map{@_=$j+1..($j+=++$i);"@_\n"}1..$a

#Update 2 chars better (39)
print map{"@{[$j+1..($j+=++$i)]}\n"}1..$a