Content of hash.pl #!/usr/local/bin/perl my %data; my $header = <>; # first line while(<>) { my($key) = split /\s+/; $data{$key} = $_; } print $header; foreach my $key (sort keys %data) { print $data{$key}; }