my ($dimention);
for $dimention ('-width','-height'){