Select Code to Download

$VAR1 = {
          '' => {
                  '' => undef
                }
        };

foreach $key (keys %hash) {
    print $key, $key{'fname'}, $key{'lname'}, "\n";
}