Select Code to Download

sub changem {
    my ($r1,$r2) = @_;
...
    $r2->[1] = 'q';
    print "AFTER:  $r2->[1]\n";
}