#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';

my $string = "12345";
$string = substr( $string, 1 ) . substr( $string, 0, 1 );
say $string;

__END__
23451