Perl 执行Select 生成HASH方法

#!/usr/bin/perl -w
use strict;
use DBI;
use Data::Dumper;


my $this_dbh = &MysqlConnect( $MyDB, $MyHost, $MyUser, $MyPass );
$this_dbh->do("SET NAMES 'utf8'");

my $ExecGroup = &ExecuteSQL( $this_dbh, "SELECT gname FROM groups;");

sub MysqlConnect {
     my ( $sqlName, $host, $user, $pass ) = @_;
     return DBI->connect( "DBI:mysql:database=$sqlName;host=$host", "$user", "$pass", { 'RaiseError' => 1 } );
        }
    #########################
    #执行SQL语句，返回hash
    #########################
sub ExecuteSQL($$@){
      my ($tmpdbh,$tmpsql,@param)=@_;
      my $qpcount = grep {/\?/} (split //,$tmpsql); #count the parameter number
            die "Your query parameter does not match the SQL!" if ($qpcount != scalar(@param));
            #replace the ? with the input parameter
            foreach my $ele(@param){
                    $_=$tmpsql;
                    s/\?/$ele/;
                    $tmpsql=$_;
            }
            #print "Execute SQL : $tmpsql\n";
            #########################################################
            #only for debug info,Func will return for update statment
            #########################################################
            #return undef unless($tmpsql =~ /^select/);
            my %tmphash; #store the query result
            ##connect DB and execute the SQL
            my $sth=$tmpdbh->prepare($tmpsql);
            return undef unless($sth->execute);
            my $count=1; #this is count the returned row and used as the key for hash result
            #save the query result to the hash
            while(my $row=$sth->fetchrow_hashref){
                    my %innerhash;
                    @innerhash{keys%{$row}}=values%{$row};
                    $tmphash{"$count"}=\%innerhash;
                    $count++;
            }
            $sth->finish();
            return \%tmphash;
    }