order hash perl using another array

Question

Im trying to sort a Hash using a list/array

my $hash =  {     cta => '01340031810312074443',
                  ttr => '001',fil => '0000',     
                  ref => '0000',
                  mef => '0000000000000060000',
                  mch => '0000000000000000000',
                  nli => '00000000',
                  tdi => 'V',
                  ndi => '006126952',
                  tdip => 'V',
                  ndip => '006126952',
              };

@order = qw(cta ttr fil ref mef mch nli tdi ndi tdip ndip);

We know Perl dont save orders in hash but I need to print in that order. How can I do that?

Thanks

Answer 1

If you just want to print the values and not the keys, you can also use a hash slice:

use feature 'say';
say join "\t", @hash{@order};

Answer 2

for my $key (@order) {
   print $key . ": " . $hash->{$key} . "\n";
}