Select Code to Download

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

sub get_foocf {                                    
            my $key = shift;                       
...
                my $foo_opts = ($');               
                get_foo_opts($foo_opts);            
            }

sub get_domopts {                                      
  my $foo_opts=shift;                                  
...
    my $deadd   = join ( "", @foo_opts[ 77 .. 176 ] ); 
    my $defill  = join ( "", @foo_opts[ 177 .. 226 ] );
 }

@foo[2]

$foo[2]