if ($sec58_flg == 1)
{
    print "Section 58 Is Not Equal\n";
    @keys_raw = sort { $a <=> $b } (keys %raw58);
    @keys_ref = sort { $a <=> $b } (keys %ref58);
    for @keys_raw; @keys_ref -> $key_raw; $key_ref
    {
        $val_raw = $raw58{$key_raw};
        $val_ref = $ref58{$key_ref};
        if ($key_raw eq $key_ref && $val_raw eq $val_ref)
        {
            next;
        }
        else
        {
            print "$key_raw $val_raw $key_ref $val_ref\n";
        }
    }
}