my %hash = (
  EX => 'ArraySite',
  AM => 'IOPort',
  PLE => 'AddressGroup',
  Number => '11',
);
for my $key ( 'Number', (grep {$_ ne 'Number'} keys %hash) ) {
  my $value = $hash{$key};
  print "$key => $value\n";
}