push @{ $data[ $nr - 1 ]->{ shift(@cols) } }, \@cols;