Language Basics Perl

sub addone
{
    foreach (@_) {
        $_++;
    }
    return @_;
}
@a = (1, 2, 3);
@b = addone(@a);
print "@b";