sub discount{
    $_[0]->{input_val} -= $_[0]->{input_val} > 50 ? 2 : 0;
    $_[0]->{input_val} -= $_[0]->{quantity} > 100 ? 1 : 0;
    $_[0]->{input_val} -= $_[0]->{year_to_date} > 10000 ? 4 : 0;
    return $_[0]->{input_val};
}