#!/usr/bin/perl

chdir("merge");
my @files = split /\n/, `ls -tr`;
$c = 1;
foreach(@files) {
    $old = $_;
    s/^\d+//;
    $_ = sprintf('%03d%s', $c++, $_);
    $cmd = "mv \"$old\" \"$_\"";
    print "$cmd\n";
    `$cmd`;
}