for my $i ( map {$_,11-$_} 0..5 ) { $x = ($i<6)+($i&&$i<5); printf "%2d: %d\n", $i, 0+$x; }