use strict;
use warnings;
use File::Glob 'bsd_glob';

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");
$"=",";
my @cmds = bsd_glob "{@commands} -mdb {@dbs}";
print "$_\n" for @cmds;