You might want to replace

while($sth->fetchrow_array()) {
     print "$alias\n";
}
[download]

with something like

my $column_counter = 2;

my @grouped_columns = ('') x $column_counter;

my $j = 0;

while( $sth->fetchrow_array() ) {
    $grouped_columns[ $j ] = $alias;
    if (++$j == $column_counter) {
        _process_and_display_full_row( @grouped_columns );
        $j = 0;
        @grouped_columns = ('') x $column_counter;
    }
}

if ($j > 0) {
    _process_and_display_partial_row( @grouped_columns );
}
[download]