( kilvadi | 2014. 11. 30., v – 12:28 )

$x-ben az aktualis elem ertek van(lenne), nem pedig a "tomb indexe".

my @t = ( "23", "24", "25");
$t[5] = "45";

my $index = 0;

foreach my $elem (@t)
{
no warnings;
if (defined $elem) {print "$index. :". $elem ."\n";}
else {print "$index. is undefined!\n";}
$index++;
}