Select Code to Download

    my ($first_key) = keys %{$samplehash{$key}};
    print "\n $key = " . $first_key;

foreach $key (keys %samplehash)
{
...
    }
    print "\n}";
}