#!/usr/bin/perl
use warnings;
use strict;
# add to @Foo::THING
push(@Foo::THING, { 'check' => '1',} );
# Should say "Some Thing"
Foo::check_THING(0)
? print "Some Thing\n"
: print "No Thing\n";

# Should say "No Thing"
Foo::check_THING(1)
? print "Some Thing\n"
: print "No Thing\n";

# add to @Foo::THING
push(@Foo::THING, { 'check' => '1',} );
# Check if it was added?
Foo::check_THING(1)
? print "Some Thing\n" # I think it should be this
: print "No Thing\n"; # But we get this

# Why is it 2?
Foo::check_THING(2)
? print "Some Thing\n" # WTF?
: print "No Thing\n";

package Foo;

our @THING = ();

sub check_THING {
my $id = shift;
defined $THING[$id]{check}
 ? return 1
 : return 0;
}