I think this is good variant:

use strict;

my $name = 'Micah';

printf <<'SONG',$name,substr $name,1;
%1$s, %1$s, bo-b%2$s
Banana-fana fo-f%2$s
Fee-fi-mo-m%2$s
%1$s! 
SONG
[download]