foreach (@$reference) { print "IN THE SUB: $_\n"; }