use strict; use warnings ;

  use constant HOMBURG => 'HA' ;

  my %bar = (homburg => 'homburg!', HOMBURG => 'HomBurg!', HOMBURG, 'Ha!') ;
  print join(', ', %bar), "\n" ;

  my $k = HOMBURG ;
  print "\$k = HOMBURG  -> \$k=$k\n" ;
  print "\$bar{homburg}=$bar{ homburg }, \$bar{HOMBURG}=$bar{HOMBURG}, ",
               "\$bar{\$k}=$bar{$k}, \$bar{+HOMBURG}=$bar{+HOMBURG}\n" ;