#!/usr/bin/env perl

use strict;
use warnings;
use feature qw(say);
use Data::Dump;

my %hash = (
    test1 => [ 1, 2, 3 ],
    test2 => [ 4, 5, 6 ]
);

dd map { scalar @{ $hash{$_} } } keys %hash;

__END__

karls-mac-mini:playground karl$ ./hash.pl
(3, 3)