sub finddistribution {
  my ($length, $numref)= @_;
  my @counts;
  foreach my $num (@$numref) {
    $counts[$num/$length]++;
  }
  return @counts;
}

...
my @dezimaldistri= finddistribution(10,\@nums);