linux~> perl -e 'my @quant = (); my @times = qw|12 14 21 27 30|; sub round{while (@_[0]%5 != 0){@_[0]++}; return @_[0]}; for(@times){print round($_), qq|\n|};'