Select Code to Download

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

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

use Data::Dumper;
say Dumper $row;