($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

##</code><code>##

@time = localtime(time);

##</code><code>##

($one, $two, @three, $four) = ('one', 'two', 'three', 'four');

##</code><code>##

sub do_stuff {
    my ($foo, $bar) = @_;
}