print OUT $hash{key1}; print OUT $hash{key2}; etc... #### my @keys = ('one', 'two', 'three'); for (@keys) { print OUT $hash{$_}; }