for my $let (keys %hash) {
    for my $num (keys %{$hash{$let}}) {
        for my $name (keys %{$hash{$let}{$num}}) {
            print join(',', $let, $num, $name, $hash{$let}{$num}{$name}), "\n";
        }
    }
}