>>41
my @bar = ("gg","dge","mpire","ncode","nglish");
my $push_word = "E";

print map $push_word.$_, @bar;

漏れも勉強中なので自信ありませんが
こんな感じでどうでしょうか？
結果はEggEdgeEmpireEncodeEnglish