#!/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"; }