print $_ foreach @array;
print $_ foreach keys %hash

##</code><code>##

s/will/may/

##</code><code>##

$ perl -e'system(perl => "-le %h = map { \$_=>1 } qw(a b c d); print keys %h") for 1..10'
cabd
cabd
cabd
cabd
cabd
cabd
cabd
cabd
cabd
cabd