Select Code to Download

#!/usr/bin/perl
use strict;
...
        # access as an array the thing defined by $reference
    foreach (@{$reference}) { print "IN THE SUB: $_\n"; }
}