my $data_all =  $connection->selectall_arrayref($query, { Slice => {} } );

##</code><code>##

  my $currec = $row;
  foreach my $columns (keys %$currec){
    say $columns;
    say $currec{$columns};
  }

##</code><code>##

use Data::Dumper;
say Dumper $row;