Hello Lady_Aleena,

This is cool! I just have a couple of comments:

• my @new_song = map { $_ = $_ =~ /^[a-g]$/ ? $notes{$_} : 'not a note';
  + $_ } @song_notes;
  [download]

  This can be simplified by removing the assignment and the final $_:

  my @new_song = map { /^[a-g]$/ ? $notes{$_} : 'not a note' } @song_not
  +es;
  [download]

• my @new_song = map { $_ = $$SoM{$_} ? $_.' '.$$SoM{$_} : 'not a note';
  + $_ } @$notes;
  [download]

  The final $_ can again be omitted; also, I find the arrow notation clearer than double dollar signs (but that might just be me):

  my @new_song = map { $_ = $SoM->{$_} ? $_ . ' ' . $SoM->{$_} : 'not a 
  +note' } @$notes;
  [download]

Hope that helps,