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