接口返回json

use Mojolicious::Lite;
use JSON qw/encode_json decode_json/;  

# /foo?user=sri
 get '/api' => sub {
   my $c = shift;
     my $env = $c->param('env');
      
     if ($env){
              use DBI;
my $dbName = 'oadb';  
my $dbUser = 'query';  
my $dbUserPass = 'xxxxxx';
my @arr2="";  
my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or die "can't connect to database " ;
my $hostSql = qq{select  IP,INFO,ENV from  machine_info  where ENV='env-$env' }; 
my ($a1, $a2, $a3,$a4,$a5,$a6,$a7,$a8,$a9);  
my $selStmt = $dbh->prepare($hostSql);  
$selStmt->bind_columns( \$a1, \$a2, \$a3);  
$selStmt->execute();  
while( $selStmt->fetch() ){ push (@arr2, "$a1  $a2  $a3" );

       };
     my   $arr2=\@arr2;
     my $json =encode_json($arr2);  
       $c->render(text =