#!/usr/bin/perl

use strict;

use Test::HashK;

my $hk=Test::HashK->new;

$hk->scores->{'red'} = 53;
$hk->scores->{'black'} = 100;
$hk->scores->{1} = 'blue';
$hk->scores->{2} = 'dinosaur';