#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my %a = ('accesslevels' => {
				  'function' =>  {
						 'func1' =>   {
											 'content' => 'val1'
										  },
						 'default' => {
											 'content' => 'val2'
										  }
				  }
			}
);


my %b = map { $_, 
					{ 
					  func1 =>
					  $a{$_}{function}{func1}{content} ,
					  default =>
					  $a{$_}{function}{default}{content}
					} 
				} keys %a;


print Dumper(%a);
print Dumper(%b);