Jak "dynamicky" tvorit promenne pri use strict

[Pavel Smerk]

	Ahoj,

potřeboval bych pro zpřehlednění regulárních výrazů mít proměnné $Krtek,
$Jezek atp. s hodnotami "fooKrtekbar", "fooJezekbar", ...

Libilo by se mi nemuset kazdou takovou promennou zavadet nejakym my $Krtek,
ale mit nejake @pole = qw(Krtek Jezek ...) a pak nejake kouzlo, ktere mi ty
promenne vytvori a naplni a bude fungovat i pri use strict.

Prisel jsem jen na nasledujici:

use strict;
our @styles;
BEGIN { @styles = qw(Krtek Jezek); }
use vars map "\$$_", @styles;
eval join ';', map "\$$_ = 'foo$_bar'", @styles;

ale je to nejake prilis komplikovane, tak tipuju, ze to pujde nejak lip. :-)

							Diky,		P.