foo

   1 #!./perl
   2
   3 tie ( @a, TST_tie, "arg1", "arg2" );
   4 $a[2]=[1];
   5
   6 package TST_tie;
   7
   8 sub new { bless []; }
   9
  10 sub fetch { print "store @_\n" }
  11 sub store { print "store @_\n" }
  12 sub delete { print "store @_\n" }