Select Code to Download

print join "\n",@$ref;   # treat it as an array
print $ref->[0];         # grab the first element
for my $l (@$ref) {
  print $l;
}                        # loop over it and do something