sub double_it { $_[0] *= 2 }
my $x = 1;
print "\$x is $x\n";
double_it($x);
print "\$x is now $x\n";
####
$x is 1
$x is now 2
##
##
my ($url, @list) = @_;
##
##
sub links {
my $url = shift; # This removes the first element of @_
map { "$url/$_" } @_; # You don't need return :)
}
##
##
sub some_func {
# ... some stuff?
my ($foo, $bar, $baz) = @_;
# ... other stuff
}
##
##
sub some_func {
my $self = shift;
# Maybe do some checks with $self first?
# ... some stuff?
my ($foo, $bar, $baz) = @_;
# ... other stuff
}