Try something like:

foreach my $key (sort keys %presentations) {

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

}
[download]