Select Code to Download

my %hash = (
    polygon => {
...
        def => ["22, 33, 44, 44", "1, 1, -3, -6"],
    }
);

for my $shape (sort keys %hash) {
    for my $class (sort keys %{$hash{$shape}}) {
...
LINE
    }
}