in reply to array subtract

$_-- for @array;

In Section Seekers of Perl Wisdom