#!/usr/local/bin/perl

use strict;
use warnings;

use MyTie;

my $index = 0;

my @blah;
tie @blah, "MyTie", $index, (5, 4, 3, 2, 1);

my %blah;
tie %blah, 'MyTie', $index, qw(zero one two three four);

print "$blah[2]\n";
print "$blah{two}\n";