Select Code to Download

use strict;
use warnings;

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

print ;

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