push @array, {(split /,/, $_)[3,4,5,12,14,16,18,19]};