if ($a =~ /(\d\d):(\d\d)/){
        $h_a = $1;
        $mn_a = 2;
    }