my %data = ( first  => 12,
             second => 45,
             third  => 27 );

foreach my $bit ( keys %data ) {
  print "$bit:\t", '-' x $data{$bit}, " $data{$bit}\n";
}

##</code><code>##

first:  ------------ 12
second: --------------------------------------------- 45
third:  --------------------------- 27