creating a dynamic 2 dimensional array in perl

my @response_array = ([0,0]);
my $response_code;
my $index;
my $array_length = 1;
my @log_files = glob('input/*.xml');
  foreach my $file (@log_files)
  {
       print("  processing $file \n");
       open(INPUT, $file);
       while (<INPUT>)
       {
          $line = $_;
          if ($line =~ /.*<Response_Code>(.*)<\/Response_Code>.*/)
          {
             $response_code = $1;
             $index = GetArrayIndex($response_code, @response_array);
             if ($index == -1)
             {
             	$array_length = push(@response_array, ([$response_code, 1]));
             	print("new $array_length $index $response_code \n");
             }
             else
             {
              $response_array[$index][1] = $response_array[$index][1] + 1;
              if ($response_code != 0)
              {
              print("$response_array[$index][0] : $response_array[$index][1] \n");
              }
 
             }
 
          }
      }
  }
      
###############################################################################
sub GetArrayIndex {
 
  my ($input, @error_array) = @_;
  my $place = 0;
  my $row;
  my $error;
  my $count;
  my $result = -1;
  my $size = length(@error_array);
  for (my $i = 0; $i < $size; $i++)
  {
  	print("$size \n");
  	$row = @error_array[$i];
    if ($row[0] == $input)
    {
      print("$row[1] : $input \n");
      $result = $place;
      last;
    }
    $place++
  }
  
return $result;
}
 
###############################################################################