#!/usr/bin/perl

use strict;
my $input_dir = "d://perl//output";
my $output_dir = "d://perl//output";
my $input_file = "$input_dir//file.csv";
my $output_file = "$output_dir//output2_file.csv";
open (OUTPUT, ">>$output_file") or die "Error 016: Error creating $output_file \n";
open (INPUT, "<$input_file") or die "Error 001: Error locating file $input_file \n";

my @array =(<INPUT>);

#print "Array\n";
#@print join( "\n", @array )."\n\n";

print "Sort Date\n";
print join( "\n", @sortedTime )."\n\n";

 print OUTPUT;
close (OUTPUT);
	close (INPUT);