my @order=('"$Persons Absences?"','"$Replacement Persons?"','"$Room Changes?"'); 
foreach my $key (@order) {