use strict;
use warnings;

my $r = new Tie::IxHash();
$r->Push('a' => 1);
print "The key a in my hash has value ", $r->Values('a'), "\n";