foreach (@CIP_LISTE) { my @Spalte2; @Spalte2 = split (m/???/); print "@Spalte2\n" }