Help for this page
push @ip_time, $entry;
push @ip_time, [ split /,/ ];
use strict; use Data::Dumper; ... push @ip_time, [ @{$entry}[0,5] ]; print Dumper(@ip_time);