Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl
use warnings;
use strict;
...
for my $e (do { tie my @ar, 'My', qw( a b c ); @ar } ) {
    say "MAIN: $e";
}

Select or download this

TIE: My a b c
SIZE: My=ARRAY(0x21eff40)
...
MAIN: c
FETCH: My=ARRAY(0x21eff40) 2
MAIN: d