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

my @data = (
    # Host         User      DB      Permissions
    [ "localhost", "jma_dbo", "*",   "USAGE, SELECT, INSERT, SHOW VIEW" ],

    [ "localhost", "jma_ro", "*",    "USAGE, SELECT" ],
    [ "localhost", "jma_ro", "jma",  "SHOW VIEW" ],
    [ "localhost", "jma_ro", "uat",  "SELECT, INSERT" ],

    [ "localhost", "jma_rw", "jma",  "USAGE, SELECT, INSERT, SHOW VIEW" ],

    [ "prod",      "robo",   "*",    "SELECT, SHOW VIEW" ],
    [ "prod",      "robo",   "jma",  "USAGE" ],
);


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