Select Code to Download

use DBI;
use Benchmark;
...
          $hash_ref = $dbh->selectall_hashref($statement, $key_field)
          }
                } );

# is passed two items, 
# 1 - the data results in either a hash ref or array ref
...
    }
    return $output;
}

show_these($hash_ref,[ field3, field2, field1 ]);

...
    }        
    return $output;
}

my $ary_ref;
my $hash_ref;
...
          print $hash_out;
          }
            } );

sub show_these {
    my ($dr,$show,$sort) = @_;
...
    }        
    return $output;
}

    my $sort =     
    sub { 
...
            } keys %{$rhash}
    };
    $hash_out = show_these($hash_ref,[ 'field1','field2','field3'  ],$
+sort);