BEGIN{open 0;($_=join'',<0>)=~s/(funktion\(\[1,2,3)(\]\);)/$1,4$2/g;open 0,">$0";print{0}$_}

funktion([1,2,3]);

sub funktion {}