foreach $Name(sort keys %x) {
    $total_x= $x{$Name};
    $total_y= $y($Name};

    if ($total_y> 0) {
        $total_value= $total_x/$total_y;
        
        printf INTFILE "%-50s %10.3f %15.2f %10.3f %10.5f\n", $Name, $total_x, $total_y, $total_value;
}