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";

my $ax = $#$allmatch;
print "ax = [$ax]\n";

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