#!/usr/bin/perl -w
use strict;

# ein Teststring
my $string = "dies ist ein test";

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

my @ausgabe = ($string =~ /^(dies) (ist) (ein) (test)$/);

# kurz strict 'refs' deaktivieren in einem eigenen Geltungsbereich
{ no strict 'refs'; print "${$desc}\n"; }

# Da Arrays mit 0 beginnen, musst du bei $desc minus 1 rechnen.
print "$ausgabe[--$desc]\n";