#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my %w = (
        '-1:130' => {
            'cells' => [
            'SubNetwork=ONRM_ROOT_MO_R,SubNetwork=RNC12,MeContext=RNC12,ManagedElement=1,RncFunction=1,UtranCell=RNC12-8-2',
            'SubNetwork=ONRM_ROOT_MO_R,SubNetwork=RNC12,MeContext=RNC12,ManagedElement=1,RncFunction=1,UtranCell=RNC12-8-8'
            ],
        },
);


#print Dumper(\%w);
# access one element by index: first = 0
print "Element 0: " . $w{'-1:130'}{'cells'}->[0] . "\n";
print "\n";

# access all available in a foreach loop
foreach my $element (@{$w{'-1:130'}{'cells'}})
{
    print $element . "\n";
}