$rec = {

    TEXT      => $string,
    SEQUENCE  => [ @old_values ],
    LOOKUP    => { %some_table },
    THATCODE  => \&some_function,
    THISCODE  => sub { $_[0] ** $_[1] },
    HANDLE    => \*STDOUT,
};

my %hash = %$rec;

while ( ( $key, $value ) = each %hash ) {
  print "$key = $value\n" if( $key !~ /^TH/ );
}