#!/usr/local/bin/perl
use 5.012;

sub wrong { map { ++$_   } @_ }
sub right { map { $_ + 1 } @_ }

my @a = (1..10);
say join ",", right(@a);
say join ",", @a;
say join ",", wrong(@a);
say join ",", @a;