Help for this page

Select Code to Download


  1. or download this
        package Product;
        use Tie::Array;
    ...
        ## you need to use $p[3] to get the product
        push @p, 10;
        print $p[3], "\n";
    
  2. or download this
        16
        40
        400