Select Code to Download

my ($mode_num)=alt_mode_num(@data);
print "Mode : $mode_num\n";
...
   return $key[0];       
       
       }

my @num =(1..10);
my @words = qw(hello world inside);
...
  my @i_numbers = $opt{NUMBERS};
  print Dumper \@i_numbers;
}