
		close OUTFILE;

		}
	        print OUTFILE $line;
	    foreach $line (@array) {

	    or die "open failed: $!";
	open(OUTFILE, ">$ARGV[1]")

	close INFILE;

	}
        unshift (@array, $line);
    while ($line = <INFILE>) {

    or die "open failed: $!";
open(INFILE, "<$ARGV[0]")

#
#!/usr/bin/perl
