Help for this page

Select Code to Download

Select or download this

for my $record (@lastArray) {    
    my @fields = $record =~ /([^,\s]+)/g;   
...
    } 
}  
print $_->[2] for @maxima;

Select or download this

Mon,Jun,25,02:19:09,2012,999,1,0,1,0,0,0,0,1,0,0
Mon,Jun,25,02:21:09,2012,999,1,0,1,0,0,0,0,1,0,0
...
Mon,Jun,25,03:10:10,2012,999,1,0,1,0,0,0,0,1,0,0
Mon,Jun,25,03:24:11,2012,999,1,0,1,0,0,0,0,1,0,0
Mon,Jun,25,03:37:11,2012,999,1,0,0,0,0,0,1,0,0,0