#!perl -w
use StringArray;
use strict;
my $test = "Hello dolly";
my @testa;
tie @testa, 'StringArray', \$test;

print "\$#testa = $#testa\n";
print "testa[1] = $testa[1]\n";
$testa[1] = 'b';
print "testa[1] = $testa[1]\n";

map {$_ = uc $_} @testa;
print "after map: test = $test\n";

delete $testa[1];
print "after delete: test = $test\n";
push @testa, "C";
print "after push: test = $test\n";