I will leave it to you to write an actual program incorporating these
> ideas.
>
> Thank you Jim for the excelent explanation.

This seems to do the trick.

foreach my $cellNo ( sort { $hash{$a}->[0] <=> $hash{$b}->[0] ||
$hash{$a}->[1] <=> $hash{$b}->[1]  } keys %hash ) {
    print join( "\0", @{ $hash{$cellNo} } ),"\n";
}

-Chris

Reply via email to