my %presentations = (
  s1 => "My Presentation',
  s2 => "Next Presentation',
...
  s23 => 'Last Presentation',
);

# Get param answers for presentations
foreach $key (keys %presentations){
  $pres_answ { $presentations{$key} } = param($key);
}