my %input;
my $wt=$input{'weight'};
my $d=$input{'date'};
my $g=$input{'Goal_Weight'};