sub compare { my @lengths = map { scalar @{$data{$_}} } qw(datalist1 datalist2 datalist3); my $first = shift @lengths; $first == $_ or return 0 for @lengths; return 1; }