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

...

$array[ $n ] *= 5;