my $page = param('p');

my $tmpl = HTML::Template::Compiled->new(filename => '../templates/main.tmpl');

my %content = ();
my @pages = qw(home me friends hobbys blog gb snippets projekte linktips impressum);
%content = map { getkey($_) => "$_.tmpl" } @pages;

$tmpl->param(content => "../templates/$content{$page}");