Select Code to Download

#!/usr/bin/perl -w
use strict;
...

ok( $#array == (@{[ %hash ]})/2 - 1, 'Recipe 1.10 from the Cookbook' )
+;
ok( $#array == keys(%hash)-1, 'keys minus 1' );