my $val = 123;
$val = chop($val) . $val;
print $val;               # prints '312'

my $val = 'abc';
$val = chop($val) . $val;
print $val;               # prints 'cab'