my $ItemsPerLine=3;

  for  my $c (sort keys %cats){
     my $values = $cats{ $c };
     print "$c\t";
    for my $i(0..$#$values){
       $i % $ItemsPerLine==0 and print "\n\t";
       print  $values->[$i], " ";
    }
    print "\n" unless  $#$values % $ItemsPerLine==0;
  }