Select Code to Download

    package Product;
    use Tie::Array;
...
    ## you need to use $p[3] to get the product
    push @p, 10;
    print $p[3], "\n";

    16
    40
    400