@db=("db1, "db2")
@commands =( "HPRMCLI exch create -s EXCHDAGNODE1 ",
 "HPRMCLI exch mount  -h RMEBackupSvr",
 "HPRMCLI exch validate -level Log",
 "HPRMCLI exch unmount ",
 "HPRMCLI exch remove ",
 "HPRMCLI exch create -s EXCHDAGNODE2  -nc",
 "HPRMCLI exch mount   -h RMEBackupSvr",
 "HPRMCLI exch validate  -level Full",
 "HPRMCLI exch unmount ",
 "HPRMCLI exch remove ");

##</code><code>##

HPRMCLI exch create -s EXCHDAGNODE1  -mdb db1
HPRMCLI exch mount  -h RMEBackupSvr -mdb db1
HPRMCLI exch validate -level Log -mdb db1
HPRMCLI exch unmount  -mdb db1
HPRMCLI exch remove  -mdb db1
HPRMCLI exch create -s EXCHDAGNODE1  -mdb db2
HPRMCLI exch mount  -h RMEBackupSvr -mdb db2
HPRMCLI exch validate -level Log -mdb db2
HPRMCLI exch unmount  -mdb db2
HPRMCLI exch remove  -mdb db2
HPRMCLI exch create -s EXCHDAGNODE2  -nc -mdb db1
HPRMCLI exch mount   -h RMEBackupSvr -mdb db1
HPRMCLI exch validate  -level Full -mdb db1
HPRMCLI exch unmount  -mdb db1
HPRMCLI exch remove   -mdb db1
HPRMCLI exch create -s EXCHDAGNODE2  -nc -mdb db2
HPRMCLI exch mount   -h RMEBackupSvr -mdb db2
HPRMCLI exch validate  -level Full -mdb db2
HPRMCLI exch unmount  -mdb db2
HPRMCLI exch remove   -mdb db2

##</code><code>##

use strict;
use warnings;
my @dbs = ("db1","db2");
    my @commands =( "HPRMCLI exch create -s EXCHDAGNODE1 ",
 "HPRMCLI exch mount  -h RMEBackupSvr",
 "HPRMCLI exch validate -level Log",
 "HPRMCLI exch unmount ",
 "HPRMCLI exch remove ",
 "HPRMCLI exch create -s EXCHDAGNODE2  -nc",
 "HPRMCLI exch mount   -h RMEBackupSvr",
 "HPRMCLI exch validate  -level Full",
 "HPRMCLI exch unmount ",
 "HPRMCLI exch remove  ");
 
    for my $db (@dbs) {
        for my $command (@commands) {
		
            print("\ $command -mdb $db\n");
			
        }
    }