#!/usr/local/bin/perl
### Temp script to replicate oid_mod.pl ###
use strict;
my @a1 = qw(a b c);
my @a2 = qw(d e f);

foreach (@a2) {
    print "$_\n";
}
changem(\@a1,\@a2); #pass-by-ref to allow extraction
foreach (@a2) {
    print "$_\n";
}

sub changem {
    my ($r1,$r2) = @_; 
    my @arr1 = @{$r1};
    my @arr2 = @{$r2};
    print "BEFORE: $arr2[1]\n";
    $arr2[1] = "q";
    print "AFTER: $arr2[1]\n";
}

##</code><code>##

d
e
f
BEFORE: e
AFTER: q
d
q
f

##</code><code>##

d
e
f
BEFORE: e
AFTER: q
d
e
f