my $tidy_budget =

        my $tidy_budget =

          { map { join( ' ', @columns ) =~ /$_/ ? ( $_ => $budget->{$_} ) : () }

          { map { join( ' ', @columns ) =~ /$_/ ? ( $_ => $budget->{$_} ) : () }

              keys %$budget };

              keys %$budget };

        my $new_budget_id = AddBudget(

        my $new_budget_id = AddBudget(

            {

            {

                %$tidy_budget,

                %$tidy_budget,