Select Code to Download

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;
...
   my ($foo, $bar, $baz) = @_;
   # ... other stuff
}