add_to_items

gistfile1.txt

# 問題では、add_to_items($value, \@array); でしたので、書き換わりません。
# と、指摘いただきました。

{
  my ($value, $array_ref) = (1, [1,2,3,4]);
  add_to_items($value, $array_ref);
  print join ",", @$array_ref;
  # 2,3,4,5
}

sub add_to_items {
    my($value, $array_ref) = @_;
    $_[1] = [ map { $_ + $value } @{$array_ref} ];
    return;
}