Usr1369***12556 06-01-0101:00 1169 06-01-0101:00 2396 06-01-0103:12 1169 06-01-0103:12 2569 06-01-0301:00 1169 06-01-0301:00 2396 ##

##

    Usr1369***12556
06-01-0101:00    1169 
06-01-0101:00    2396 

    Usr1369***12556
06-01-0103:12    1169 
06-01-0103:12    2569 

    Usr1369***12556
06-01-0301:00    1169 
06-01-0301:00    2396 

##

##

my @filedata = ;
my $head = shift(@filedata);
my $line

foreach $line(@filedata);

##

##

print (OFILE_HANDLER "$head");
print (OFILE_HANDLER  "$line");
close (OFILE_HANDLER);