my ( $hours, $minutes, $seconds ) = split /:/, $time;