foreach my $element (values %hash) {
  if (ref $element eq ref []) {
  }
  # OR 
  if (ref $element eq 'ARRAY') {
  }
} 

##</code><code>##

my $number_of_elements = scalar keys %hash;

##</code><code>##

my %hash;
foreach my $pair (qw/1_one 1_two 2_one 2_two/) {
  my ($key, $val) = split('_', $pair);
  if (not exists $hash{$key}) {
    $hash{$key} = [];
  }
  push @{ $hash{$key} }, $val;
}