use strict;
use warnings;

my @db= qw /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 @out_com;
 
 for my $comm (@commands) {
      push @out_com, "$comm  -mdb $_" for @db;
 }
 print join "\n", @out_com;