@sortedarray=map $_->{orig},sort {$a->{h}<=>$b->{h} and $a->{m}<=>$b->
+{m} and $a->{s}<=>$b->{s}} map {my($h,$m,$s)=/: (\d{2}):(\d{2}):(\d{2
+}
+)/;{h=>$h,m=>$m,s=>$s,orig=>$_}} @array;
[download]