#!/usr/athena/bin/perl

$s = shift;

while(<>){
	chop;
	print "$_ $s\n";
}