Select Code to Download

@a = (1);
for (1..10) {
...
    { $na[-1] == $_ ? $na[-2]++ : push @na, (1, $_) }
  @a=@na;
}