Eigene foreach-Variable in perl

Falls man in einer foreach-Schleife mit einer anderen foreach-Schleife arbeiten will dann kann man nicht mit $_ arbeiten wenn man die Variable der äusseren foreach-Schleife in der inneren benutzen möchte. Deshalb kann man sich eigene Variablen deklarieren:

#!/usr/bin/perl
my $var;
my $var2;
my @liste = qw( asdf jkl 1 2 3 4.56 );
my @liste2 = qw( a b c d e f g );
foreach $var ( @liste ) {
	foreach $var2 ( @liste2 ) {
		print $var."\n";
	}
}