$x = chop($x) . $x;

或

$x = substr("$x$x",length($x)-1,length($x))

以下是使用substr的一种方法：

use warnings;
use strict;

for my $x (qw(12345 10901)) {
    my $r = substr($x, -1, 1) . substr($x, 0, -1);
    print "$r\n";
}

输出：

51234
11090