tataa

#!/usr/bin/perl
@a = („eins“, „zwei“);
foreach $b (@a) {
$var = „bla_$b“;
$$var = $b;
}
print „$bla_eins $bla_zwei“;

Sag etwas dazu: