... printf "%8s:\t%s %2d\n", $bit, "-" x $data{$bit}, $data{$bit}; ...