Select Code to Download

sub pascal {
  my ($rows) = @_;
...
    print " 1\n";
  }
}

sub ton_pascal
{
...
        print join(' ', @$this_row) . "\n";
    }    
}