#!/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";
}