Select Code to Download

use List::Util qw[ reduce ];

...
                            }
                  }
        };

#! perl -slw
use strict;
...
a1:a2:a3=key1
a1:a2=key2
b1:b2:b3:b4:b5:b6:b7:b8:b9=key3