えーと、前にも一応お世話になった者で基本的な質問で悪いんですが、
配列に格納されているすべての文字列の先頭にある文字列を連結させたいんですが
下記のコードではうまくいきませんでした。
実際は頭に付ける文字列を変えて何回もこの処理を繰り返すのですが、
（サブルーチンにして、↓の例の$push_wordは引数として受け取る）
二回目からは、前回頭に付けた文字列と$push_wordを頭につけてしまいます。
簡単な応用技術ですがご教授願えたら幸いです。

【理想】
@bar = ("gg","dge","mpire","ncode","nglish")
を
@bar = ("Egg","Edge","Empire","Encode","English")
とするような処理（配列名barに意味はなし）

【こうしてみた】
（@barを定義した後、）
my $push_word = "E";
foreach (@bar){
　　　my $a = $push_word;
　　　$a .= $_;
　　　$_ = $a;
　　　　　　　　　　}
print "@bar";