print <<_EOF_;
This is correctly interpolated: ${\$query->param('name')}
_EOF_

##</code><code>##

if ( $number == @{[reverse sort @list]}[0..$#list] )