$data[$_] = [@data[$_*3..$_*3+2]] for 0..$#data/3;
$#data = $#data/3; # neue Länge setzen