sub add_two {
    my $arrayref = shift;
    $_ += 2 foreach @$arrayref;
    return 1;
}
my @values = qw( 1 2 3 4 5 6 7 );
print add_two(\@values), " ; '@values'\n";