my $gah = join ("<br>", map {'$_ = $somehash{$_}'} keys %somehash);

##</code><code>##

my $first = "Hello World\n";
my $second = "$first";
print "$second";

##</code><code>##

use strict;
use CGI;

my $q = CGI->new();

print "$q->param('foo')\n";     # wrong
print $q->param('foo'),"\n";    # right
print $q->param('foo')."\n";    # right
print "@{[$q->param('foo')]}\n" # right, but twisted ;)