my @data = map { chomp; [ split ',' ] } <DATA>;

Can reformatted as

    my @data = 
      map
      {
        chomp;
        [
          split ','
        ]
      }
      <DATA>;

##</code><code>##

    my @data =
      map
      {
        chomp;
        [
          map
          {
            /"(.*)"/
               ? $1
               : $_
          }
          split ','
        ]
      }
      <DATA>;