my @data = ();
  while (<DATA>) { # read one line
     chomp;        # remove end-of-line character(s)
     s/\"//g;      # remove double quotes if present
     push @data, [ $_ ]; # Create an anonymous array
                         # *reference* with the current
                         # line, and push that reference
                         # onto the @data array.
  }