use constant COUNTS => {
        x => 14,
        y =>9,
};

...

foreach my $i ( 0 .. ${&COUNTS}{$some_variable} ){
  ...
}