#!/usr/bin/perl
sub plus {
   for (@_) {$_++}
}
my @foo=(1,2,3,4);
plus(@foo);
for(@foo) {print "$_\n"};