tie my @array, 'Some::Thing'; ... $array[ $n ] *= 5; #### my $myObj = Some::Thing->new(); ... $myObj->setItem( $n, $myObj->getItem( $n ) * 5 );