push @results_renamed,
    {
        filename => $_,
        mtime    => stat($_)->mtime(),
        bytes    => stat($_)->size(),
    };

##</code><code>##

@results_renamed
    = sort { $a->{mtime} <=> $b->{mtime} } @results_renamed;

##</code><code>##

my @temp;
my $post = sub {
    push @temp, { filename => $_, mtime => stat($_)->mtime } if /USB/
};
find( $post, 'c:/test' );

##</code><code>##

sub find_usb {
    my @temp;
    my $post = sub {
        push @temp, { filename => $_, mtime => stat($_)->mtime } if /USB/
    };
    find( $post, 'c:/test' );
    return @temp;
}