regex - perl - 関数定義から引数を抽出し、その上にコメントとして配置する

Question

  ............
 ########### NEED TO PUT ARGUMENTS HERE AS COMMENT #########
 eErrorT ChainCtrlInitChains(ChainCtrlT* pChainCtrl,
    char* name,
    int instance,
    void* pOwner,
    )
    {
       ....
    }
     .........

抽出して関数定義の上にコメントとして入れたいです。似たような関数定義がたくさんあります。

open(my $FILE1, "< a.c") or die $!;
@arr = <$FILE1>;

foreach(@arr){
    if($_ =~ /^ \S+ \s+ \S+ \s* \( (.+?) \) /xsmg) {               
      my $arg = $1;
      my @arr = map /(\w+)$/, split /\W*?,\W*/, $arg;
      print @temp = map ' *  @param[in/out] '."$_\n", @arr
          unless $_ =~ /;\s*$/;
     }
}

$str を使用すると機能しますが、関数定義の上にコメントとして引数をスプライスできません。

$str = <$FILE1>;