Select Code to Download

#!/usr/bin/perl -w
use warnings;
...


. . . your attempt to solve the problem . . .

host      user    DB  usage select insert show view  ...
--------- ------- --- ----- ------ ------ ---------  ...
...
localhost jma_rw  jma Y     Y      Y      Y
prod      robo    jma Y     **            **
 . . .

#!/usr/bin/perl -w
use warnings;
...
for my $perm (sort { $perms{$a} <=> $perms{$b} } keys %perms) {
    printf "% 2u: %s\n", $perms{$perm} + 1, $perm;
}