package StringArray;
require Tie::Array;
use base 'Tie::Array';
sub TIEARRAY  { bless $_[1], $_[0] }
sub FETCH     { substr(${$_[0]}, $_[1], 1) }
sub STORE     { substr(${$_[0]}, $_[1], 1) = $_[2] }
sub FETCHSIZE { length(${$_[0]}) }
sub STORESIZE { $$self = substr(${$_[0]}, 0, $_[1])  }
sub DELETE    { substr(${$_[0]}, $_[1], 1) = '' }
1;