open(my $fh, "tempfile") or die("ack - $!");
chomp( my $header = <$fh> );
my(undef, @headers) = split ' ', $header;

my(%cols) = do {
    my $i = 0;
    map { $_ => $i++ } @headers;
};

my %info;
while(<$fh>) {
    chomp;
    next if m< ^ \s* \z >x;
    my($name, @rows) = split;
    push @{ $info{$name} }, @rows;
}
close $fh;