同じ組み合わせのサイズは追加しないスクリプト

non_overlap.pl

use strict;
use warnings;
use Data::Dumper;

my @banner_size = (
    {
        width  => 320,
        height => 50
    }
);

my @add_size = (
    # 追加される
    {
        width  => 300,
        height => 250
    },
    # 追加される
    {
        width  => 300,
        height => 100
    },
    # 重複するので追加されない
    {
        width  => 320,
        height => 50
    }
);

for my $size ( @add_size ) {
    if ( !grep $_->{width} == $size->{width} && $_->{height} == $size->{height}, @banner_size  ) {
        push @banner_size,{
            width  => $size->{width},
            height => $size->{height}
        };
    }
}

warn Dumper @banner_size;