Select Code to Download

# example 1
my @ary = qw(
...
sub printref {
    print "$$_\n" for @_;
}

# example 2
my @ary = qw(
...
    print "$$ary[$_]\n" for @_;

}

# example 3
my @ary = qw(
...
    my $ary = shift;
    print "$_\n" for @$ary;
}