#/usr/bin/perl

for my $a (1..9)
{
  print $_ for(1..$a);
  print "\n";
}

for(my $i=9;$i>0;$i--)
{
  for(my $j=1;$j<$i;$j++)
  {
    print $j;
  }
  print "\n";
}