my $self = shift;
	my ($amount) = @_;
    my $amountOld = $self->amountAccount;
    my $amountNew = $amountOld + $amount;
    $self->amountAccount($amountNew);
    if(length($amountOld) < 8 && length($amountNew) >= 8) {
        use Devel::Peek;    
        print("\n\n"), Dump($amountOld), Dump($amount), Dump($amountNew), print("Went bad here: ($amountOld + $amount = $amountNew)\n\n");
        $amount = 0.9;
        $amountOld = 4253.95;
        $amountNew = $amountOld + $amount;
        print("\nNew values\n"), Dump($amountOld), Dump($amount), Dump($amountNew), print("Correct output: ($amountOld + $amount = $amountNew)\n\n");
    }