Select Code to Download

my @a = qw( alpha beta gamma delta epsilon );

...
{
    print "$_\n";
}

{
    package Tie::Handle::Array;
...
        $self->{A}[ $self->{I}++ ]
    }
}