Select Code to Download

@images = ({Name,'a',Size,2},{Name,'b',Size,3},{Name,'c',Size,2},{Name
+,'d',Size,3});

my @duplicates = grep{$c{$_->{Size}}++ && $c{$_->{Size}}>1}@images;

for (@duplicates)    {
    print join " ", values %$_, "\n";
}