#!/usr/bin/perl
use strict;
use warnings;

my %config = (
  page => {
    tmpl => q{page.tmpl},
    params => [qw{title param1 param2}],
  },
  layout => {
    tmpl => q{layout.tmpl},
    params => [qw{title param3 param4}],
  },
);

my %all_params = (
  title => q{title},
  param1 => q{param1},
  param2 => q{param2},
  param3 => q{param3},
  param4 => q{param4},
);

my %page_params   = map {$_ => $all_params{$_}} @{$config{page}->{params}};
my %layout_params =  map {$_ => $all_params{$_}} @{$config{layout}->{params}};

print Dumper \%page_params;
print Dumper \%layout_params;


##</code><code>##

$VAR1 = {
  'param2' => 'param2',
  'title' => 'title',
  'param1' => 'param1'
};
$VAR1 = {
  'param4' => 'param4',
  'param3' => 'param3',
  'title' => 'title'
};