Select Code to Download

use strict;
use warnings;
...
        print "Matched $key: $data2Hash{$key}, $tail\n";
    }
}

Matched 1: x, a