#!/usr/bin/perl -w
#use strict;
use File::Find;
use File::stat;

my @results;
my $ext = "A";

find(\&search, "c:/test");
sub search {
    if ($_ =~ m/ACH/ ) {
        push @results, [$_, stat($_)->mtime, stat($_)->size];
    }
}

@results = sort { $a->[1] <=> $b->[1]} @results;

foreach my $x (@results){

    rename ($x->[0], "USB" . $ext);
    print $x->[0] . "\t" . localtime($x->[1]) .  $x->[0]->size ."\n";
    ++$ext;
}

my @temp;

find(\&post, "c:/test");
sub post {
    if ($_ =~ m/USB/ ) {
        push @temp, [$_, stat($_)->mtime];
    }
}

foreach my $y (@temp) {
    print $y->[0] . "\t" . localtime($y->[1]) . "\n";
}