suria

This page lists questions and answers that were posted by visitors named suria.

Questions

The following questions were asked by visitors named suria.

Answers

The following answers were posted by visitors named suria.

my @max = (10,50,100,99999); my @sc = (15,10,5,0); do { print "enter amount ordered: "; my $amt = <>; last if $amt <= 0; printf "Order: %5d -- Shipping Charge: \$%d\n",$amt,pop grep($amt<$_,@sc); }