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

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