$current_time='14:30:05'
(undef, $min, $sec)=split /\:/, $current_time