#!/usr/bin/perl -w
# File: useSilly

use SillyArray;

tie @s, 'SillyArray', 'zero', 'one', 'two';
$Len = 3;

for ($i=0; $i < $Len; $i++) { print "$s[$i] " } print "\n";

$s[$Len++] = 'three';

for ($i=0; $i < $Len; $i++) { print "$s[$i] " } print "\n";

$s[$Len++] = 'four';

for ($i=0; $i < $Len; $i++) { print "$s[$i] " } print "\n";

$s[$Len++] = 'five';

for ($i=0; $i < $Len; $i++) { print "$s[$i] " } print "\n";

$s[3] = 'THUH-REEE';

for ($i=0; $i < $Len; $i++) { print "$s[$i] " } print "\n";

