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 (@commands) {
      push @out_com, $_;
      if (/exch remove/) {
	      for my $database (@db) {
		      print map {"$_ -mdb $database \n"} @out_com;
	      }
	      @out_com = ();
      }
}