Select Code to Download

...
my %image;
...
        $image{$size} = $file;
    }
}

...
foreach my $file (readdir(DIR)) {
...
foreach my $list (values %image) {
    handle_duplicates(@{$list}) if (@{$list} > 1);
}