print join("\n",@array),"\n";

##</code><code>##

$count{$_}++ foreach @element;

##</code><code>##

print $_*$_+2*$_+1 for $some->('complex')->{'lookup'}->[equation];