if ($key =~ /^PERIODEND/ && !$budgetdata) {
    BudgetGroup->budget($input, $myclass, 3)
}

##</code><code>##

my $key = "PERIODEND";
my $budgetdata = 0;

print $key =~ /^PERIODEND/, "\n";
print $budgetdata, "\n";

if ($key =~ /^PERIODEND/ & !$budgetdata) {
    BudgetGroup->budget($input, $myclass, 3)
}