in reply to retrieving referenced hash information

@whatyouwant = grep { /^TH/ } keys %$rec;

    -- Chip Salzenberg, Free-Floating Agent of Chaos

In Section Seekers of Perl Wisdom