#!/usr/bin/perl
use strict;
use warnings;

use Data::Dumper;

my $allmatch = [ '10000000 ,' ];
my $nr       = 0;

print "Problemstelle: allmatch: ", Dumper $allmatch;
print "nr = [$nr]\n";
print "\$#\$allmatch = [$#$allmatch]\n";
print "ref \$allmatch = ", ref($allmatch), "\n";

if ($nr > $#$allmatch) {
    print "groesser\n";
}
else {
    print "kleiner gleich\n";
}