use strict;
use warnings;

$_="1234";

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

chop;

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

print ;


##</code><code>##

print drop_the_first('1234'); 
sub drop_the_first {
	split '', shift;
	shift;
	return join '',@_;
}