#!/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

##</code><code>##

scratch.pl vstestlist.txt 172.24.17.41 admin adminggg 172.24.23.32 admin admin ddd
RESULTS = GlobalLB::VirtualServerDefinition=HASH(0x3d7b504) GlobalLB::VirtualSer
verDefinition=HASH(0x3d7afb4) GlobalLB::VirtualServerDefinition=HASH(0x3d793f4)
GlobalLB::VirtualServerDefinition=HASH(0x3d79414) GlobalLB::VirtualServerDefinit
ion=HASH(0x3d78f94) GlobalLB::VirtualServerDefinition=HASH(0x3d78d3c) GlobalLB::
VirtualServerDefinition=HASH(0x3d78acc) GlobalLB::VirtualServerDefinition=HASH(0
x3d788dc) GlobalLB::VirtualServerDefinition=HASH(0x3d786ac) GlobalLB::VirtualSer
verDefinition=HASH(0x3d7847c) GlobalLB::VirtualServerDefinition=HASH(0x3d7820c)
GlobalLB::VirtualServerDefinition=HASH(0x3d7801c) GlobalLB::VirtualServerDefinit
ion=HASH(0x3d77dc4) GlobalLB::VirtualServerDefinition=HASH(0x3d77b94)
--------------------
Can't use string ("14") as a SCALAR ref while "strict refs" in use at scratch.pl line 28.