my %params = $cgi->Vars();

my @param = (\@bind_values, \%params);

&show_params(\@param);

sub show_params {
   my $args = shift;
   my $query = $args->[1];

   for my $item (keys %{$query}) {
       print "KEY: $item VALUE: $query->{$item}<br>";
   }
}