Select Code to Download

use strict;
use warnings;
...
5 Rubble Barney Father
6 Rubble Betty Mother
7 Rubble Bam-Bam Child

$VAR1 = [
          {
...
          }
        ];

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