my @col   = split /\t/, <>; # Column headings
    my @lines = map { my %l; @l{@col} = split /\t/; \%l } <>;