#!/usr/bin/perl
use warnings;
use strict;

$^I = '.BAK';
while ( <> ) {
    s/$/,$ARGV/;
    print;
    }

__END__