use Math::Round qw(nearest);

  $quote = 418.00;
  $price = nearest(10, $quote);