Select Code to Download

my @order = qw(Sports Books Places);
my %hash;
...

#retrieve them in the desired @order
print map { "$_ => ".(join ',',@{$hash{$_}})."\n" } @order ;