Mega Code Archive

 

Categories / Perl / Array

 

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";