Select Code to Download

sub detaint_1 {
    $[0] =~ /^(.*)$/;
    return $1;
}

sub detaint_1_inp {
    $[0] =~ /^(.*)$/;
    $[0] = $1;
}

sub detaint_n {
    map { /^(.*)$/; $1 } @_;
...
sub detaint_n_inp {
    foreach (@_) { /^(.*)$/; $_ = $1}
}

my @a;
# ... set @a ... 
my @b = map { detaint_1 } @a;   # Copy
detaint_1_inp($_) foreach (@a); # In-place

sub detaint {
    my $subref = sub { $_[0] =~ /^(.*)$/; $1 };
...
    $_ = &$subref($_) foreach (@_);                 # In-place
    return;
}

sub apply_filter {
    my $subref = shift;
...
        $v;
    }, @_);
}