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

Can reformatted as

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