foreach $line ( <INFILE> )
  {
      if( $line =~ /^Name/ )
      {
        @columnNames = split(/\t/, $line);
     }
      else
      {
         push @rowValues, [ split(/\t/, $line) ];
      }
  }