#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my %w =  (     Sub =>
                    {
                        'rbscells' =>
                                        'UtranCell=RNC16-4-1',
                                        'UtranCell=RNC16-4-2',
                                        'UtranCell=RNC16-4-3'
                    }
)
;

print Dumper(%w);