#!/usr/bin/perl
use strict;
use warnings;
my @stats = (['RequestsA',0],['RequestsB',0],['RequestsC',0],['RequestsD',0],['RequestsE',0]);
my ($idx) = (grep {$_->[0] eq 'RequestsD'} @stats);
$idx->[1] ++;