Select Code to Download

my @hexv;

...
 my @vals = split ' ', $_;
  @hexv = (@hexv,@vals)
}

my @hexv;

while (<DATA>) {
  push @hexv, split;
}

my @hexv = map split, <DATA>;

my $endex = scalar @hexv - 1;

my $endex = $#hexv;

foreach my $index ( 0 .. $endex ){
  
  last if $index == $endex;

foreach my $index ( 0 .. $endex - 1 ){