my ( $hours, $minutes, $seconds ) = ( split /:/, $time )[ -3, -2, -1 ];