Select Code to Download

use strict;
use warnings;
...
 while( my( $x, $i ) = $one->each() ) {
     printf "%3d: %s\n", $i, $x;
 }

use strict;
use warnings;
...
for my $index (0..$#x){
    print "$index : $x[$index]\n";
}