my @diff2; while(@diff) { push @diff2,[splice @diff,0,5]; }