my $c = shift;use DBI;my %hash=();  my $dbUser='zabbix';  my $user="root";  my $passwd="1234567"; my $dbh  = DBI->connect("dbi:mysql:database=$dbUser;host=192.168.32.xx;port=3306",$user,$passwd) or die "can't connect to database ". DBI-errstr;my $hostSql = qq{ select hostid,name  from hosts  where hostid in ('10001','10081','10050') };   my ($a1, $a2, $a3,$a4,$a5,$a6,$a7,$a8,$a9);  my $selStmt = $dbh->prepare($hostSql);  $selStmt->execute();$selStmt->bind_columns(undef, \$a1, \$a2);  while( $selStmt->fetch() ){ print "\$a1 is $a1\n";print "\$a2 is $a2\n";$hash{$a1}=$a2;  };print %hash;print "\n";  $c->render(json =>  \%hash );  };