my $position_of = (
      'A' =>  {
               next_key => 'A#',
               prev_key => 'G#',
               #  other stuff . . .
              },
      'A#' => {
               next_key => 'B',
               prev_key => 'A',
               #  other stuff . . .
              },
       ### in-between stuff
      'G#' => {
               next_key => 'A',
               prev_key => 'G',
               #  other stuff . . .
              },
);

##</code><code>##

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