use strict; use warnings; print scalar ; while () { chomp; print $_, scalar ; }