foreach $key (sort {$a <=> $b} keys %presentations) {