sub GEN_HTML {                                                                          # generate HTML for form
    $mp3hash = shift;                                                                   # hash - parsed xml itunes data
    #print Dumper(\%{$mp3hash});
    foreach $player (sort keys %{$mp3hash}) {
        foreach $collection (sort keys %{$mp3hash{$player}}) {
print "DEBUG: the player is [$player] the collection is [$collection]\n";
            foreach $thetrack ( sort keys %{$mp3hash{$player}{$collection}}) {
                foreach $bute ( sort keys %{$mp3hash{$player}{$collection}{$track_name}}) {
                    print "$player - $collection - $thetrack - $mp3hash{$player}{$collection}{$track_name}{$bute}\n";
                }
            }
        }
    }
return;
}