my %getSSO;

sub
addHost($$) {
    print $_[1] . "\n";
    $getSSO{$_[0]} = $_[1];
}


my @a = ('apple','orange','choco');
addHost('aklia700',qw(carrot lunch));
addHost('aklia701',\@a);




Useless use of a constant in void context at ./getAppXML line 31.
lunch
ARRAY(0x8103170)
aklia701
apple
orange
choco
aklia700
Can't use string ("lunch") as an ARRAY ref while "strict refs" in use at ./getAppXML line 26.