#!/usr/bin/perl

my $start = 1;
my $i = 0;
my $amount = 10;

while ($i < $amount) {
  printf "Number %3d: ${start}\n", $i + 1;
  my $newnumber = "";
  my @digits = split //, $start;
  my $counter = 1;
  my $j = 0;
  while ($j <= $#digits) {
    $newnumber .= "${counter}${digits[$j]}" and $counter = 0 if int $digits[$j] != int $digits[$j + 1];
    $counter++;
    $j++;
  }
  $start = $newnumber;
  $i++;
}