#!/usr/bin/perl
# w4.1.pl A simple read in and print out. This one
# opens a second file and prints out to it, adding line numbers 

open (FH, "roses.txt");
while (<FH>) {
  @lines = (@lines, $_);
}
close (FH);

open (OUT, ">roses.no");
foreach (@lines){
  $no++;
  print (OUT "$no.  $_");
}
close(OUT);
