#! perl
use strict;
use warnings;

my $hash = {};
my $i    = 'one';

print "\nOriginal code:\n\n";
($i eq 'one') ? $hash->{'name'} = "hello"."world" : 'nothing';
printf "name: %s, i: %s\n", $hash->{name}, $i;

print "\nBrowserUk's fix:\n\n";
$hash->{name} = ($i eq 'one') ? "hello" . "world" : 'nothing';
printf "name: %s, i: %s\n", $hash->{name}, $i;