Select Code to Download

use strict;
use warnings;
...
my $hash = {};
$hash->{'foo'}->{'bar'}->{'bat'} = 5;
print unpack_row($hash, ());