use strict;
use warnings;

$_="1234";

$_=join '', reverse split '';

chop;

$_=join '', reverse split '';

print ;