#!/usr/bin/perl -l

@vi = 6->(6);          # six random numbers

$dozen = 12;
@dozen         =  $dozen->($dozen);  # 12 random numbers
@baker's_dozen = &$dozen(++$dozen);  # 13 random numbers

print for 100->(100);  # prints 100 random numbers!
@_ = 100;
print  for &0;         # ... and so does this!

BEGIN {
    # sure'd be a lot harder to understand w/o whitespace :)
    (*100 = sub { $_[0]
                     ? ( rand, ( *{ $_[0] - 1 } = *{ $_[0] } )->( $_[0] - 1 ) )
                     : ( )
                }
    )->( 100 );
}