sub title_length {
  return max( map { length $movies{$_}{title} } keys %movies );
}