Select Code to Download

my %tab = ( abc => [4, 20], def => [9, 20000], ghi => [16, 200000]  );

#! /usr/bin/perl -w

...
        } sort keys %tab
    ])
);

<td rowspan="2">abc</td><td>4</td>
<td>20</td>
...
<td>20000</td>
<td rowspan="2">ghi</td><td>16</td>
<td>200000</td>

my $flipflop = 0;
print $q->table( {-border=>"1"},
...
        } map { $_, $_ } sort keys %tab
    ])
);