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