Select Code to Download

my %underline = (
  a => '-',
...
);
my $first_letter = substr($0, 0, 1);
my $pat = $underline{$first_letter};