my @hexv;

while (<DATA>) {
  chomp;
 my @vals = split ' ', $_;
  @hexv = (@hexv,@vals)
}

##</code><code>##

my @hexv;

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

##</code><code>##

my @hexv = map split, <DATA>;

##</code><code>##

my $endex = scalar @hexv - 1;

##</code><code>##

my $endex = $#hexv;

##</code><code>##

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

##</code><code>##

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