my $site_id = $cgi->param('id');
my %sites = (
    home => \&home,
    fotos =>  \&files,
    profil  => \&profile
);

if (exists $sites{$site_id}) {
   $sites{$site_id}->(\@params);
} else {
   $cgi->header(-status => '404 Not found');
}