如果两个数组的大小始终相同，则循环遍历数组的索引比实际元素更简单。

# only need one array here because they are the same size
foreach my $i ( 0 .. $#_diskID ) { 
   ...
}

另外，在Perl中也不需要像这样构建JSON字符串，CPAN上有一个很好的模块，名为JSON，它可以从散列中创建它们。
所以，知道这一点，你可以简单地创建一个哈希：

use strict;
use warnings;

use JSON;

my @_disk = ('0:0','0:1');
my @_diskStatus= ('OK','Critical');

my %json_hash = ( data => [] );
foreach my $i ( 0 .. $#_disk ) {
   push @{$json_hash{data}},
      { '{#DISKID}' => $_disk[$i],
        '{#STATUS}' => $_diskStatus[$i],
      };
}

my $json_string = encode_json \%json_hash;
print "$json_string\n";

# prints
# {"data":[{"{#STATUS}":"OK","{#DISKID}":"0:0"},{"{#DISKID}":"0:1","{#STATUS}":"Critical"}]}

假设两个数组有相同数量的元素：

use warnings;
use strict;

my @_disk = ('0:0','0:1');
my @_diskStatus = ('OK','Critical');

for my $i (0 .. $#_disk) {
    print "$_disk[$i] $_diskStatus[$i]\n";
}