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);
}

##</code><code>##

sub get_foocf {                                    
            my $key = shift;                       
            open (FOO_CF, '/tmp/foocf.dat')  
              or die "Control file unavailable $!";
               while (<FOO_CF>) {                     
                if (/$key/) {                      
                }                                  
                my $foo_opts = ($');               
                get_foo_opts($foo_opts);            
            }   

##</code><code>##

sub get_domopts {                                      
  my $foo_opts=shift;                                  
        my @foo_opts = split ( //, $foo_opts );        
    my $cvtype   = $dom_opts[0];                       
    my $cvnumber = join ( "", @foo_opts[ 1 .. 10 ] );  
    my $dtype    = join ( "", @foo_opts[ 11, 12 ] );   
    my $cdir    = join ( "", @foo_opts[ 13 .. 15 ] );  
    my $dp      = join ( "", $foo_opts[16] );          
    my $dpform  = join ( "", @foo_opts[ 17, 18 ] );    
    my $dpnc    = join ( "", $foo_opts[19] );          
    my $dprntr  = join ( "", @foo_opts[ 20 .. 23 ] );  
    my $dpfill  = join ( "", @foo_opts[ 24 .. 73 ] );  
    my $de      = join ( "", $foo_opts[74] );          
    my $deform  = join ( "", @foo_opts[ 75, 76 ] );    
    my $deadd   = join ( "", @foo_opts[ 77 .. 176 ] ); 
    my $defill  = join ( "", @foo_opts[ 177 .. 226 ] );
 }

##</code><code>##

@foo[2]

##</code><code>##

$foo[2]