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