for my $row ( @$ref ) {
    for my $colname ( keys %$row ) {
        say $colname;
        say $row->{ $colname };
    }
}