gistfile1.txt

@xyz»++                # increment all elements of @xyz

@x = @a »min« @b       # @x is smallest of @a and @b

$mean = ([+] @a) / @a           # calculate mean of @a

$sumsq = [+] (@x »**» 2)        # sum of squares of @x

$fact = [*] 1..$n               # $n factorial

sub postfix:<!> { [*] 1..$^n }  # define new operator
say 5!;                         # 120

@odd = 1,3 ... *       # odd numbers (lazy & infinite)
@fib = 1,1 ... &[+]    # the entire Fibonacci sequence