Select Code to Download

use strict;
use warnings;
...
           if $e2 =~ $e1->[ 1 ];
    }
}

this1 belongs to h2this1
this2 belongs to h3this2
this21 belongs to h5this21
this23 belongs to h6this23