for (@_) {
   print;
   $_ = undef;
}

##</code><code>##

my $ref = ["my","list"];