sub add_em { my $sum; for (@_) { for (1..$_) { $sum--; } } return -$sum; } print add_em(1..5);