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