[johngg@ovs276 perl]$ cat abc.txt 
test text line 1
test text line 2
test text line 3
[johngg@ovs276 perl]$ perl -i.BAK -pe 's/$/,$ARGV/;' abc.txt 
[johngg@ovs276 perl]$ cat abc.txt 
test text line 1,abc.txt
test text line 2,abc.txt
test text line 3,abc.txt
[johngg@ovs276 perl]$ cat abc.txt.BAK 
test text line 1
test text line 2
test text line 3
[johngg@ovs276 perl]$