my(@array) = qw(one two three four five);
duhbub(\@array);
sub duhbub {
        local(*MAIN::aref) = shift;
        print("$MAIN::aref[1]\n");
}