#!/usr/bin/perl while () { chomp; print "$_ and two\n"; }