Select Code to Download

sub unpack_row($@); 
sub unpack_row($@){
...
$hash->{'goo'}->{'tab'}->{'bird'} = 2;
print Dumper($hash);
print Dumper(unpack_row($hash, ()));

$VAR1 = {
          'goo' => {
...
          'bird',
          2
        ];