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