#!/usr/bin/perl use strict; use warnings; my @stats = (['RequestsA',0],['RequestsB',0],['RequestsC',0],['RequestsD',0],['RequestsE',0]); # Direkt als assoziative Datenstruktur (in Perl ein "Hash") my %stats = ( RequestsA => 0, RequestsB => 0, RequestsC => 0, RequestsD => 0, RequestsE => 0); # Konversionen zwischen den beiden %stats = map { @$_ } @stats; @stats = map { [ $_, $stats{$_} ] } keys %stats; # !! siehe unten # Initialisieren des Hash in einem Aufwasch (alle Elemente auf 0) %stats = map { $_ => 0 } (qw(RequestsA RequestsB RequestsC RequestsD RequestsE)); # und dann anstelle der $idx-Methode einfach nur: $stats{RequestsD}++;