Select Code to Download

{
    package Tie::ArrayAsHash;
...
        return scalar(%tmp);
    }
}

use 5.010;
use Tie::ArrayAsHash 'aeach';
...
{
    say "ARRAY $idx => $value";
}