Language Basics Perl

sub addone
{
    ++@_[0];
}
$value = 1;
addone($value);
print "The value of \$value = $value.\n";