Select Code to Download

 if(ref($hash) eq 'HASH'){
        my $header = $hash->{'header'};
...
    else {
        return([@row, $hash]);
    }

if(ref($hash) ne 'HASH'){
    return([@row, $hash]);
...
while(my ($key, $value) = each(%$hash)){
    push(@stack, unpack_row($value, (@row, $key)));
}

use strict;
use warnings;
...

print Dumper($hash);
print Dumper(unpack_row($hash, ()));