in reply to array subtract

Or: 

@diminished = map { $_ - 1 } @numbers;

[download]

In Section Seekers of Perl Wisdom