Select Code to Download

               0-0
...
   4-0   4-1   4-2   4-3   4-4
5-0   5-1   5-2   5-3   5-4   5-5

0-0 1-0 2-0 3-1
0-0 1-0 2-1 3-1
0-0 1-1 2-1 3-1

sub enum_area{
    my ($x,$y) = split '-', $_[0];
...
        '{'.(join ',',0..$y).'}';
    
}