$result =
    ($major_length == 4800) ? 18 :
    ($major_length ==  8552 and $val == 4) ? 33 :
    die "not handled";