#! /usr/local/bin/perl

%test = (
test1 => '1',
test2 => '2',
test3 => '3');

$test = (
test1 => '1',
test2 => '2',
test3 => '3');

$count1 = keys %test;
$count2 = keys %{$test};

print $count1,"\n";
print $count2,"\n";