$a = pdl @your_array;
$b = clump($a,2); # collapses the first two dimensions
print $b;