foreach my $key (@tables) {

##</code><code>##

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