I have a tab delimited text file 1 with 5 different fields. From this file I need the field five associated to the field 1

open my $file, '<', "file1";

while ($file){
chomp;
my ($one,$too,$tree,$fool,$flin) = split /\t+/, $_, 5; 
print $one, " ", $flin;
}
[download]

From this file I need the field five associated to the field 1

ok, after read again I see that you want a hash... then define a hash first and change the print line for this line