for my $dimension ( qw(-width -height) ) {