$ perl -mO=Deparse -le 'print "$ARGV $_" for (<>)'

foreach $_ (<ARGV>) {
    print "$ARGV $_";
}