#!/usr/bin/perl

use MyAry;

tie @ary, MyAry;

@ary = (1, 2, 3);

forward @ary;
print item @ary;

exit;