Select Code to Download

package Tie::ArrayAsHash;

...
}

1;

# Import nothing, but use the tied hash interface.
use Tie::ArrayAsHash;
...

# Import 'aeach' renamed it to whatever you like.
use Tie::ArrayAsHash aeach => { -as => 'p512each' };