while () { $csv->parse($_); my @columns = $csv->fields(); $start_time = str2time($columns[1].' '.$columns[2]); next unless ($curr_time != $start_time) { $exchange = $column[5]; push (@arr1, $column[3]); push (@arr2, $column[4]); push (@arr3, $column[5]); $curr_time = str2time($columns[1].' '.$columns[2]); print "Avg= high= low= in one second=";