Select Code to Download

my $ref = $st->fetchall_arrayref;
my @sorted = sort { $a->[1] cmp $b->[1] } @$ref;

my $sth = ...
print [all your html including the TABLE tag ]
...
}

print [ rest of html doc ]