DB<1> @ln=<STDIN>; <"FILE" 
DB<2> print "$ln[0] $ln[1]"