Shell Programming and Scripting

my $Filename = "sample.xml";

my $Parser = new XML::Parser( Style => 'tree' );
my $Tree = $Parser->parsefile( $Filename );

my @array= ( 1,2,3,4,5);
my $arr_ref = \@array;

for (@{$arr_ref}) {
print "Element $_\n";
}

$ cat trav.pl
#!/usr/bin/perl

use strict;
use warnings;

my $start = [ 0, [ 1, 2, 3 ], [ 4, [ 5, 6, 7 ], 8 ], 9 ];

sub print_arr {
    my ( $level, $entry ) = @_;
    return unless ( ref $entry eq "ARRAY" );
    my @arr = @$entry;
    for ( my $i = 0 ; $i <= $#arr ; $i++ ) {
        if ( ref $arr[$i] eq "ARRAY" ) {
            print_arr( $level + 1, $arr[$i] );
        }
        else {
            print " " x $level;
            print "Element ", $i, ": ", $arr[$i], "\n";
        }
    }
}

print_arr( 0, $start );
$ perl trav.pl
Element 0: 0
 Element 0: 1
 Element 1: 2
 Element 2: 3
 Element 0: 4
  Element 0: 5
  Element 1: 6
  Element 2: 7
 Element 2: 8
Element 3: 9