open (INFILEHANDLE, "<:crlf",  $detail_file_in) or die "Can't open $detail_file_in! \n";
$counter = 0;
while ($line = <INFILEHANDLE>) {
    chomp $line;
    @{$in_array[$counter]} = split($in_delim, $line);
    $counter++;
}
close INFILEHANDLE;
#process the details file
$target = 'details file';
patch_stockfiles(*LOGFILEHANDLE, *FILTERLOGFILEHANDLE, \@in_array, $target);
delete_duplicates(*LOGFILEHANDLE, *FILTERLOGFILEHANDLE, \@in_array, $target);
fix_format(*LOGFILEHANDLE, *FILTERLOGFILEHANDLE, \@in_array, $target);

($sec,$min,$hour,$day,$mon,$year) = (localtime)[0..5];
$date = sprintf "%d%02d%02d",$year+1900,$mon+1,$day;
$preform_date = $date . "\t" . $hour . ":" . $min . ":" . $sec;

print LOGFILEHANDLE         $preform_date . "\tWriting Detail File...";
print                       $preform_date . "\tWriting Detail File...";
#print into a file
open (OUTFILEHANDLE, ">" . $detail_file) or die "Can't open $detail_file \n";
for ($counter = 0; $counter <= $#in_array; $counter++) {
    print OUTFILEHANDLE join($in_delim, @{$in_array[$counter]}) . "\n";
}
@in_array = ();
print LOGFILEHANDLE         "Ok\n";
print                       "Ok\n";
close OUTFILEHANDLE;