c:\@Work\Perl\monks\pritesh_ugrankar>perl -wMstrict -le
"do_it_all_1(1, 2, 3);
 do_it_all_2(0, 1, 2, 3);
 ;;
 ;;
 sub do_it_all_1 {
   print qq{do_it_all_1: (@_)};
   ;;
   my $biggest = shift @_;
   foreach my $num (@_) {
       if ($num > $biggest) {
           $biggest = $num;
       }
   }
   ;;
   my $smallest = shift @_;
   foreach my $smallnum (@_) {
       if ($smallnum < $smallest) {
           $smallest = $smallnum;
       }
   }
   ;;
   print qq{smallest == $smallest,  biggest == $biggest};
   }
 ;;
 sub do_it_all_2 {
   print qq{do_it_all_2: (@_)};
   ;;
   my $biggest = @_;
   foreach my $bignum (@_) {
       if ($bignum > $biggest)
       {
           $biggest = $bignum;
       }
   }
   ;;
   my $smallest = @_;
   foreach my $smallnum (@_) {
       if ($smallnum < $smallest) {
           $smallest = $smallnum;
       }
   }
   ;;
   print qq{smallest == $smallest,  biggest == $biggest};
   }
"
do_it_all_1: (1 2 3)
smallest == 2,  biggest == 3
do_it_all_2: (0 1 2 3)
smallest == 0,  biggest == 4