Select Code to Download

my $hashkey2 = $tblData{$key2};
delete $tblData{$key2};
$tableData{$hashkey}{$hashkey2} = \%tblData;

my @key = grep defined, $key, $key2, $key3;

my %tableData;
...

    $store_row(\%tblData);
}