#!/usr/bin/perl -wT
use strict;

my @arr;

@arr[0] = localtime();
$arr[1] = localtime();

print "\$arr[0] = $arr[0]\n";
print "\$arr[1] = $arr[1]\n";