my $head = 'A';
my $tail = 'G#';