You might want to test your code before posting.. try this instead..

foreach my $row (@rows){
  foreach my $key (keys %$row){
    print "$key: $row->{$key}\n";
  }
}
[download]