#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

$| = 1;

my @timestamp;
my @doc_read;
my @result;
my $write = 'write.txt';
my $line;
my $text;
my $arg;
my $date = localtime();

sub read {

    foreach $arg (@_) {
	open (READ, "<" , $arg)
	    or die ("Could not open: ".$arg." - $!\n");

	while ( @doc_read = <READ> ) {

	    chomp @doc_read;	

	    foreach $line (@doc_read) {
		@result = split (':', $line);
	
		push (@timestamp, $result[3]);

	    }
	}

	close (READ)
	    or die ("Could not close: ".$arg." - $!\n");

    }
  
    return @timestamp;
}

sub write {

    open (WRITE , ">>" , $write )
	or die ("Could not open: ".$write." - $!\n");

    print WRITE  "\n" . $date . "\n";
    
    foreach $_ (@_) {
	print WRITE $_ . "\n";
    }

    close (WRITE)
	or die ("Could not close: ".$write." - $!\n");

    my $text = "Successfully writen on ".$write.".\n";
    
    return ($text);

}

my @values = &read(@ARGV);

print Dumper (\@values);

my $final = &write(@values);

print "\n" . $final . "\n";