note name to pitch number utility roles for Perl