my ( $my_hash );
 {
   no strict 'vars';
   $my_hash = eval $text_I_read_in;
   die "Error reading in text: $@" if ( $@ );
 }