my %ball = map {; $_ =>1 },1..8;
%ball{'3'}=.9;
my $a1= [+] %ball{1..4};
my $a2= [+] %ball{5..8};
my $result1= [+] %ball{1..4} <=> [+] %ball{5..8} ;
print   "$a1     $a2"~"\n";
say $result1;
my $result2= $a1 <=> [+] %ball{5..8} ;

say $result2;