#!/usr/bin/perl
for my $c (1..1000) {
    $onto{'PROBLEM'}{'mappings'} = "foo" if $c == 99;
}