sub routine {
    my $self = shift;
    my $list = &shift_list; # expose our @_
    # then @_ = ($other, $args)

    s/a/A/g for (@$list); # change the original
    ...
}