#!/usr/bin/perl
use strict;
use warnings;
use SOAP::Lite;


my @Data = @ARGV;

# process box info
my %host1 = ('ip'=>$Data[1],'user'=>$Data[2],'password'=>$Data[3],'version'=>$Data[4]);
my %host2 = ('ip'=>$Data[5],'user'=>$Data[6],'password'=>$Data[7],'version'=>$Data[8]);
my (@results,@results1,@results2);
my (%hresults1,%hresults2);
my @hostdata = (\%host1,\%host2);
my @hostresults ;
my ($ip,$user,$password,$version);
for (my $i=0;$i<=1;$i++){
   $ip = ${hostdata[$i]}{ip};
   $user = ${hostdata[$i]}{user};
   $password = ${hostdata[$i]}{password};
   $version = ${hostdata[$i]}{version}; 
  if ($version eq "ggg"){
    @results = &get_list();
    $hostresults[0] = &get_list();
    print "RESULTS = @results\n";
    print "--------------------\n";
    print "HOSTRESULTS = ${$hostresults[0]}\n"; # <<< LIne 28