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