...
foreach my $file (readdir(DIR)) {
    my $size = -s "$dir/$file";
    push @{$image{$size}}, $file;
}
closedir(DIR);
foreach my $list (values %image) {
    handle_duplicates(@{$list}) if (@{$list} > 1);
}