foreach my $k ( keys %courses){
#   my $values = $courses{$k};
    my %values = %{$courses{$k}};
#   print $values->{'title'};
    print "<course>\n";
    print $values{'title'};
    print "</course>\n";
}