for my $shape (sort keys %hash) {
    for my $class (sort keys %{$hash{$shape}}) {
        print <<LINE for @{$hash{$shape}{$class}};
<$shape class ="$class" coordinates="$_">
LINE
    }
}