sub get_key {
open (FOO_TEXT, '/tmp/foo.work')or die "Could not open work file  $!\n";
     while (<FOO_TEXT>) {
         if (/\*([^*]+)\*/) {
          my $key = $1;   
          get_foocf($key);
}