my @hosts = ("a01", "a02");
my @rpms = ("xx1", "xx2", "xx3", "xx4", "xx5", "xx6", "xx7");

print "CHECKING THE INSALLED RPM(s)\n";

foreach (@hosts)
{

my $host_name = $_;
foreach (@rpms)
{
my $rpm;
if ( "$_" eq "xx4" )
{
$rpm = system ("ssh $host_name rpm -qa | grep $_ | grep -vi perl &>> $directory_create/rpm");
}
else
{
$rpm = system ("ssh $host_name rpm -qa | grep $_ &>> $directory_create/rpm");
}
if ( $rpm == 0 )
{
print " $_ RPM ................... IS PRESENT ON HOST \n";
}
else
{
print " Exiting..................... ";
exit 1;
}

} #foreach rpm loop


}#foreach hosts loop ends here