Example
Server A       Component1 
	       Component2 
	       Component3 
	       Component4 

Server B       Component1 
	       Component2 
	       Component3 

Server C       Component1
	       Component2 

##</code><code>##

#!/usr/bin/perl
$logfile="/tmp/gatherinfo.log";
@srvlist = ('serverA','serverB','serverC');
open(LOGFILE,">>$logfile")||die ("cannot create and open file");
foreach $_ (@srvlist){
        chomp $_;   
        @cmd = `pulldata -e $_`;
        foreach $line (@cmd)
        {
             chomp ($line);
             if ($line =~ '^\s+(\w+):\s.*')
                                {
                      $RM=$1;
                      <ASSIGN TO HASH AND PRINT>
                      print LOGFILE <hash content>
                                }
                        }
                }
}
close(LOGFILE);