my @keys_in_order = qw( key type flags Alias-2 ... );
#declared someplace so it doesn't get assigned each pass

sub Print
{
  my $hashref=shift;
  foreach my $k ( @keys_in_order )
  {
    my $value=$hashref->{$k} if defined $hashref->{$k};
    #rest of processing here
  }
}