printf "%4s : %s\n", $_, 
    join ' ', map{ $_||'-' } @{ $comp{ $_ } }{ 'a'..'d' }
    for sort{$a<=>$b} keys %comp;