$testar{ 'reg1' } = { 
  'exp' => qr~\Q/var/logs/logger/\E(\d*)/(\d*)~, 
  'desc' => 2,
};

#!/usr/bin/perl
use strict;

# besser aus -w, weil es nur auf den aktuellen scope geht;
# hier ist der scope die komplette datei.
# es gibt naemlich immer noch einige Module, die bei -w (globale warnungen an) warnungen 
# produzieren; deshalb besser use warnings verwenden...
use warnings; 

# nummerierte Variable, die du ausgeben oder zwischenspeichern moechtest
my $desc = 2;
...

# wofuer braucht man hier das no strict? und das ${$desc} ???
# Das gibt den dereferenzierten wert von $desc zurueck, und $desc ist eine
# zahl, keine referenz => ergo sinnlos
{ no strict 'refs'; print "${$desc}\n"; }

my %testar = (
  'reg1' => { 
    'exp' => qr~\Q/var/logs/logger/\E(\d*)/(\d*)~, 
    'desc' => 2,
  },
  'req2' => {
    'exp' => qr~...~,
    'desc' => 1,
  },
);

# entweder ueber ein explizites array:
my @fields = $string =~ $testar{req1}->{exp};
my $wantedField = @fields[ $testar{req1}->{desc} - 1 ];

# oder kuerzer, ohne das explizite array
my $wantedField = ( $string =~ $testar{req1}->{exp} )[ $testar{req1}->{desc} -1 ];

my %testar = (
  'reg1' => qr~\Q/var/logs/logger/\E(?:\d*)/(\d*)~, 
  'req2' => qr~...~,
);
my ($wantedField) = $string =~ $testar{'req1'};