Perl：通过比较值与数组位置，找到最大值然后除以最大值

我想规范化我的数据。我写了这段代码：

my $max1=0;
for (my $i=0; $i<=$#data; $i++) {
  if ($data[$i][1]>$data[$max1][1]) {$max1=$i;}
  #Disabled# if ($data[$i][1]>$max1) {$max1=$data[$i][1];}
}

for (my $i=0; $i<=$#data; $i++) {
  print "$i\t$data[$i][0]\t$data[$i][1]\t$max1\t";
  $data[$i][1] = $data[$i][1] / $data[$max1][1] * 10000;
  #Disabled# $data[$i][1] = $data[$i][1] / $max1 * 10000;
  print "$data[$i][0]\t$data[$i][1]\t$max1\n";
}

然而，这产生了一个错误：最大位置之前的所有值都除以最大值，而最大位置之后的值不变，就好像“ / $data[$max1][1] * 10000 ”从未发生过一样。

但是，如果我使用值而不是数组位置更改比较，我会得到正确的结果：

my $max1=0;
for (my $i=0; $i<=$#data; $i++) {
  #Disabled# if ($data[$i][1]>$data[$max1][1]) {$max1=$i;}
  if ($data[$i][1]>$max1) {$max1=$data[$i][1];}
}

for (my $i=0; $i<=$#data; $i++) {
  print "$i\t$data[$i][0]\t$data[$i][1]\t$max1\t";
  #Disabled# $data[$i][1] = $data[$i][1] / $data[$max1][1] * 10000;
  $data[$i][1] = $data[$i][1] / $max1 * 10000;
  print "$data[$i][0]\t$data[$i][1]\t$max1\n";
}

我对第一部分代码做错了什么？