Select Code to Download

while( <> ){
  split;
  splice @_, 0, 2; #removes first two elements
  store_elements_function( @_ ); #sub to store the remainder
}

my @std_keys = qw/proto .../;
my @ext_keys = qw/name9 name10 name11/;
...
  print "My proto is: ",$hash{'proto'},"\n";

...