Select Code to Download

sub routine {
    my $self = shift;
...
    s/a/A/g for (@$list); # change the original
    ...
}

sub shift_list {
  # shift one element of @_ and return it as an array ref
...
  } 
  return $list;
}