Select Code to Download

#!/usr/bin/perl -w
# test.pl --
...
    splice(@a,1,0,$val);
    $_[$_] = $a[$_] for (0..@a);
}

C:>test
one
...
one
add_test
two

sub setmode {
    my($val,$ref) = @_;
    splice(@$ref,1,0,$val);
}