#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 1;

my $v_amount    = -683.12;
my $plbamt      = -683.12;
my $finalamount = $v_amount - ($plbamt); # Why have brackets here, OP?
is ($finalamount, 0, 'Nothing to see here');