Select Code to Download

my ($baseline, $oops) = grep { defined } @benchmarks{@BASELINES};
if(not defined $baseline) { die "No baseline case in file" }
elsif(defined $oops) { die "Multiple baseline cases in file" }

my ($baseline, $oops) = sort { defined $a ? defined $b ? 0 : -1 : 1 } 
+@benchmarks{@BASELINES};