my %order = (Number => 1,
             EX     => 2);

for my $key ( sort { ($order{$a}||1000) <=> ($order{$b}||1000)} keys %hash ) {
    my $value = $hash{$key};
    print "$key => $value\n";
}