open(my $fh, ">", "output") or die("ack - $!");
print $fh $header;
print $fh "$_ @{ $info{$_} }\n" for reverse sort {
    $info{$a}->[ $cols{z} ] <=> $info{$b}->[ $cols{z} ]
} keys %info;
close $fh;