#!/usr/local/bin/perl  
 
use strict;  
use warnings;  
 
my %temp_hash; 
my @temp_array; 
 
open my $file, '<', 'F.dump'; 
while (my $line = <$file>){ 
   my($data,$hash_key) = split(/ /, $line); 
 
  $temp_hash{$hash_key} = $data if !$temp{$hash_key}; 
 
} 
close $file; 
@temp_array = keys %temp; 
 
$a=($#temp_array+1)/2;  
print "$a records from file F.dump read into linear array \n";  
print " added to Female hash, now ".keys(%temp_hash)." records \n";  
undef @temp_array;