$_ = "ace";
my($a, $b, $c) = (/a/, /b/, /c/);

##</code><code>##

my %foo = (BAR => $cgi->param('bar'),
           BAZ => $cgi->param('baz'),
           ZOT => $cgi->param('zot'),
          );

##</code><code>##

use subs qw|lc|;

sub lc { lc shift }
print lc("BAR");

##</code><code>##

use subs qw|lc|;

sub lc { CORE::lc shift }
print lc("BAR");