Свяжите:: Мусор:: RegexKeys, будет соответствовать клавишам мусора, используя Регулярные Выражения.

РЕЗЮМЕ

используйте Связь:: Мусор:: RegexKeys;
используйте Данные:: Самосвал;

мой %h;

связь %h, Связь:: Мусор:: RegexKeys;

мой $a =.1.2.3.4.5.6.2;
мой $b =.1.2.3.4.5.7;
мой $c =.1.2.3.4.5.6.1;
мой $d =.1.2.3.4.5.6.1.6;

$h {$a} = "key1";
$h {$b} = "key2";
$h {$c} = "subkey1";
$h {$d} = "subkey2";

мой $pat = ^.1.2.3.4.5.6. *;
мой @res = связывал (%h)-> FETCH_KEYS (qr/$pat/);
печатайте Самосвал (@res);

Возвратите это:

$VAR1 =.1.2.3.4.5.6.1;
$VAR2 =.1.2.3.4.5.6.1.6;
$VAR3 =.1.2.3.4.5.6.2