push @ip_time, $entry;

##</code><code>##

push @ip_time, [ split /,/ ];

##</code><code>##

use strict;
use Data::Dumper;
my $entry;
my @ip_time;
 
$_= "a,b,c,d,e,f";
$entry = [ split /,/ ];
push @ip_time, $entry;  # This does the whole array
 
$_= "g,h,i,j,k,l";
 
push @ip_time, [ split /,/ ];  # This does the whole array

push @ip_time,  [@{[ split /,/ ]}[0,5]];  # Slice it!
push @ip_time,  [(split /,/ )[0,5]];   # This works, too

$_= "m,n,o,p,q,r";
$entry = [ split /,/ ];
push @ip_time, [ @{$entry}[0,5] ];
 
print Dumper(@ip_time);