Select Code to Download

foreach (@stuff)
{
     my ($a,$b,@stuff) = split (/:/);

     push (@{$data{$a}{$b}}, @stuff);
}

foreach (@stuff)
{
     my ($a,$b,@stuff) = split (/:/);

     $data{$a}{$b} = [ @stuff ];
}

my %column_width;

foreach my $row (keys %data)
...
          $line++;
     } while ($continued);
}