# example 1
my @ary = qw(
  Foo and Bar
  went up the Baz
  to fetch a Gom Jabar
);

printref(\@ary[0,2,6,10,11]);

sub printref {
    print "$$_\n" for @_;
}