Select Code to Download

#! /usr/bin/perl
use warnings;
...
while (my ($index, $val) = each @{ clone_a() }) {
    print "$index => $val\n";
}