#!/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)[0,1];

        while (my ($key, $value)=each (%MYHASH)){
            print "$Name=>$Data, ";}
    }

}

do_hash('file_data');

close FH;
exit;