use ObjectMonitor;
use Data::Dumper;
use feature 'say';


use constant KEYID => 2434;
my @a;

sub f(){
    my $b = ObjectMonitor->new(KEYID);
#    $b->print_ids();

    push @a,ObjectMonitor->new(KEYID) for 0..3;
};

f();