while ($line=<TEMP>) 
{
 my $start = $format->parse_datetime( $line[3] );
 my $stop  = $format->parse_datetime( $line[4] );
}