#!/usr/bin/perl

use strict;
use warnings;
use XML::CSV;
use Text::CSV;
use Time::Local;

my @d;
my %ha;
my $file = 'dDos_flows.csv';
my $file1 = 'dDos_flows1.csv';
open(my $fh,'<:encoding(UTF-8)',$file);
open(my $fh1,'>:encoding(UTF-8)',$file1);
while(my $f=<$fh>)
{
chomp $f;
my @data=split ",",$f;
my $res=$data[2];
#print "$res \n";
my @res= split(' ', $res);
shift @res;

foreach my $t (@res) {
    print localtime($t) . "\n";
}
#my $conv=scalar(localtime($data[2]));
#print "$conv \n";
}