foreach my $key (sort keys %presentations) {

$pres_answ {$presentations{$key}} = param($key);

}