while (<FH>) {
   push @lines, [split];
}