my $foo = 'bar'; 
my $bazqux = 42; 
my $quux = "$bazqux ${foo}s"; 
my $money = 'gold'; 
my $total_fortune = $quux . "of $money\n"; 

##</code><code>##

my $foo           = 'bar'; 
my $bazqux        = 42; 
my $quux          = "$bazqux ${foo}s"; 
my $money         = 'gold'; 
my $total_fortune = $quux . "of $money\n"; 

##</code><code>##

my ($foo, $bar,..., $baz,... $qux) = @hash{'abc', 'def',..., 'pqr',... 'yz'};

##</code><code>##

my $foo = $hash{abc}; 
my $bar = $hash{def};
.
.
. 
my $baz = $hash{pqr}; 
.
.
.
my qux = $hash{yz}; 

##</code><code>##

$q->param('foo','bar','baz')

##</code><code>##

$q->param(-name => 'foo', -values => ['bar', 'baz'])