DB<22> sub func { my %matches = @_; say Dumper \%matches}

  DB<23> 'ABC' =~ /(?<a>\w)(?<b>\w)(?<c>\w)/; func(%+)
$VAR1 = {
          'a' => 'A',
          'b' => 'B',
          'c' => 'C'
        };