#!/usr/bin/perl
open ORIGFILE, "noc.060202_13";
#print ORIGFILE;
push(@DATA,<ORIGFILE>);




foreach my $LINE (@DATA){
open FH, "$LINE[0]";
print FH $LINE;
close FH;

}