#!/usr/bin/perl -w
use strict;
$|++;

use Test::Simple tests => 2;

my $size = int( rand(500) );
my %hash = map { $_ => 1 } my @array = ( 0 .. $size );

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