Select Code to Download

use strict;
use warnings;
...
}

print q{-} x 20, qq{\n};

--------------------
  Keys: A D C B
...
        A => 1
        A => 1
--------------------