Using dereferenced array in foreach loop
#!/usr/bin/perl -w
use strict;
my @array = (2, 4, 6, 8, 10);
my $array_r = \@array;
foreach (@{$array_r}) {
print "An element: $_\n";
}
print "The highest index is $#{$array_r}\n";
print "This is what our reference looks like: $array_r\n";
Related examples in the same category