Select Code to Download

tie my @array, 'Some::Thing';

...

$array[ $n ] *= 5;

my $myObj  = Some::Thing->new();
...

$myObj->setItem( $n, $myObj->getItem( $n ) * 5 );