#!/usr/bin/env perl                                                                       
use warnings;
use strict;
use charnames qw(:full);
use Data::Dump;
# use utf8;

binmode STDOUT, ":utf8";

my $flat = chr( charnames::vianame(qq(MUSIC FLAT SIGN)) );

my $sharp = chr( charnames::vianame(qq(MUSIC SHARP SIGN)) );

print qq( b$flat\n);

print qq( a$sharp\n);

my %helmholtz_to_midi = ( "a$sharp\/b$flat" => 70 );

dd \%helmholtz_to_midi;


__END__