# card suits at 50,00,60,7B mapped differently depending on keyboard
my %rows = qw(
p ♣ , ♥ ; ♠ . ♦
q ┌ w ┬ e ┐ r ─ t ● y ▌ u ▄ i ▗ o ▖
a ├ s ┼ d ┤ f ╱ g ╲ h ◢ j ◣ k ▝ l ▘
# card suits at 50,00,60,7B mapped differently depending on keyboard
my %rows = qw(
p ♣ , ♥ ; ♠ . ♦
q ┌ w ┬ e ┐ r ─ t ● y ▌ u ▄ i ▗ o ▖
a ├ s ┼ d ┤ f ╱ g ╲ h ◢ j ◣ k ▝ l ▘
my $groups = kbchars(\%rows);
while (my ($k, $c) = each %rows) {
my $groups = kbchars(\%rows);
while (my ($k, $c) = each %rows) {