
$x = $foo . $x;

##

##


#!/usr/bin/perl -w
use strict;
my $foo = 'foo';
my $x = 'bar';
$x = $foo . $x
print $x