foreach $i ( 0..$#all-1 ) {
print "$all[$i]";
}