Since it is sorted, print everything up to the next-to-last element.

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

I know there is a shorter way of writing this...

-Kurt

davorg: Good one, forgot about pop. But only if you don't want to preserve the array.