#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $file = shift;
my $nom = shift;
my $out_file = "data/out_".$nom.".txt";
open(OF,"<",$file);my @str = <OF>;close(OF);
my $max =0;
my %data;
my @res;
foreach my $t (@str){
    chomp $t;
    my @d = split(";",$t);
 if(exists $data{$d[1]}){($data{$d[1]} = $data{$d[1]} + $d[0]);}
 else{($data{$d[1]} =  $d[0]);}

    $max = $d[0] if($d[0]>$max);
#chomp $t ;
#$t =~ s/[^0-9.\;]//g;
#print IF "$t\n";
}
#close(IF);
foreach my $v (values %data){
    ($res[0]++) if($v<=1);
    for(my $i = 1;$i<=$max;$i+=5){
    ($res[$i]++) if($v>$i and $v<=$i+5);
    }
}
open IF,">",$out_file;
for(my $i =0;$i<$#res-1;$i++){
print IF "$i\t$res[$i]\n" if($res[$i]) ;
}
close IF;
print "1\n";