Select Code to Download

sub DigThroughHashref {
    my $hr_data  = shift;
...
        }
    } ## end foreach (keys %{$hr_data})
} ## end sub DigThroughHashref

foreach (keys %{$hashref}) {
}