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