#!/usr/bin/perl
use strict;
use warnings;

my $t = (time)[0];          #1
my @t = localtime $t;

@t = localtime ((time)[0]); #2

@t = localtime (time)[0];   #3