for my $row (@$data_all)<br>
{<br>
  my %currec = $row;<br>
  foreach my $columns (keys %currec){<br>
    say $columns;<br>
    say $currec{$columns};<br>
  }<br>
}