in reply to sub routine to sort per time
if ($a =~ /(\d\d):(\d\d)/){ $h_a = $1; $mn_a = 2; } [download]
In addition to what the others have said, shouldn't it be
$mn_a = $2 [download]