#!/usr/bin/perl
# Perl program to illustrate iteration through an array

# array creation
@arr = ( 11, 22, 33, 44, 55 );

# Iterating through the range
print( "Iterating through range:\n" );

# size of array
$len = @arr;
	
for ( $b = 0; $b < $len; $b = $b + 1 ) {
  print "\@arr[$b] = $arr[$b]\n";
}

# Iterating through loops
print( "\nIterating through loops:\n" );

# foreach loop
foreach $a ( @arr ) { print "$a "; }