c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my $current_time = '14:30:05';
 my @ra = my (undef, $min, $sec) = split ':', $current_time;
 print qq{'$min' '$sec'};
 dd \@ra;
"
'30' '05'
[14, 30, "05"]