Select Code to Download

my %data = ( first  => 12,
             second => 45,
...
foreach my $bit ( keys %data ) {
  print "$bit:\t", '-' x $data{$bit}, " $data{$bit}\n";
}

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