Select Code to Download

use Tie::Subset::Array;
sub arr_alias_4 {
...
    tie my %x, 'Tie::Subset::Hash', $hash, \@k;
    return \%x;
}