sub TIEARRAY {bless []}
sub FETCH {;}
sub FETCHSIZE {0}
sub STORE {;}
sub STORESIZE {;}
sub EXISTS {;}
sub DELETE {;}
sub CLEAR {;}
sub POP {;}
sub PUSH {;}
sub SHIFT {;}
sub UNSHIFT {;}
sub SPLICE {;}
sub EXTEND {;}
tie @array, 'main';