Select Code to Download

my $sql = "SELECT bug_id, owner, subject, status, assigned FROM BUGS O
+RDER BY $field";

my $bugTable = $dbh->selectall_hashref("SELECT bug_id, owner, subject,
+ status, assigned FROM BUGS");
my %numSorts = ( 1=>'bug_id' );
...
  @srtArr = sort { $bugTable->{$a}->{$k} <=> $bugTable->{$b}->{$k} } @
+srtArr;
}
print " @{$bugTable->{$_}} \n" for @strArr;