#!/usr/bin/perl

use strict;
use warnings;

package Dummy;

sub TIEARRAY
{
    my $class = shift;
    return bless [], $class;
}

sub STORE
{
    my $self = shift;
    my $index = shift;
    my $value = shift;

    return ($self->[ $index ] = $value );
}

sub FETCH
{
    my $self = shift;
    my $index = shift;

    print STDERR "Now I'm fetching the element with index: $index\n";
    return $self->[ $index ];
}

sub FETCHSIZE
{
    my $self = shift;

    return scalar( @$self );
}

package main;

my @array;
tie @array, 'Dummy';

$array[0] = 'Perl';
$array[1] = 'Monks';

foreach ( @array ) {
    print "$_\n";
    # print $_; print "\n";
}
[download]