my $data = "1234";
my $i = 0;
$data = join '', map { $i++ ? $_ : '' } split //, $data;
print $data, "\n";