Select Code to Download

$i = 0;

...
    $value = $hash{$record} -> {fname};
    print "key = record_$key, hash values = ", $hash{$record} -> {uid}
+, ", ", $hash{$record} -> {fname}, ", ", $hash{$record} -> {lname}, "
+\n";
}

# get number of records in %hash
my $href = \%hash;
...
    $record = "record_$i";
    print "key = $record, hash values = ", $hash{$record} -> {uid}, ",
+ ", $hash{$record} -> {fname}, ", ", $hash{$record} -> {lname}, "\n";
}