#!/usr/bin/perl -w 

use strict; 
my ($file_list, $file_data)=@ARGV; 
my %MYHASH; 
#create hash 
sub do_hash { 
    my $filename=shift; 
    open(FH, $filename) or die "Can't open $filename: $!\n"; 
    while(<FH>){ 
	 my ($Name, $Data)=split,2; 
	 $MYHASH{$Name} = $Data;
    } 
    
    close FH; 
}

do_hash('file_data'); 

foreach my $key (keys %MYHASH) { 
    print "$key => $MYHASH{$key}\n"; 
} 
exit;