Select Code to Download

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

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

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

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