foreach $name (sort keys by %x) {

     $a= $x{$name} ;

     $b= $y{$name} ;

     $total = $a/$b;
    
     print $name, $a, $b, $total


}

##</code><code>##

$name    $a   $b    $total

abc      2     3      5

xyz      2     4      6