#!/usr/bin/perl
use strict;
use warnings;

my $foo = "123";
my $bar = "456";

$foo = join "", $foo, $bar;
print "$foo\n";