File::Find::Rule 

use File::Find::Rule;

my $rule = File::Find::Rule->name('*.JPG')
                           ->file()
                           ->size('>2M');
                           ->start(@directory_list);

while ( defined(my $image = $rule->match) ) {
    say $image;
}