Select Code to Download

    @a = (0) x 143;    # 143 zeroes

    @a = (0) x @a;     # every element set to zero

    undef @a;

    undef @a;
    $z = $a[3] + 12;
    print $z;