for $row (@rows){
    for $key (keys %{$row}){
        print "$key: $row->{$key}\n";
    }
}