Select Code to Download

open FH, $file or die "Can't open $file: $!";
my @lines = (<FH>)[0,1];
close FH;

my %data = ();

...

@data{ @line_1_fileds } = split /\s+/, $lines[0];
@data{ @line_2_fields } = split /\s+/, $lines[1];