switch ( $foo ) {
	case ( tr/I/I/ == 1 ) { $bar = 'low' }
	case ( tr/I/I/ == 2 ) { $bar = 'med' }
	case ( tr/I/I/ == 3 ) { $bar = 'high' }
	else { warn "Bad $_\n" }
}