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

package TieTimeArray;

sub TIEARRAY
{
	my $class = shift;
	my $self;
	$self->{ltime} = [localtime];
	bless($self, $class);
}
sub FETCH     { my ($self, $index) = @_; $self->{ltime}= [localtime]; return $self->{ltime}->[$index] }
sub FETCHSIZE { my $self = shift; return scalar @{$self->{ltime}} }

package main;

my @now; tie (@now, "TieTimeArray");
while (1) { print "@now\n"; sleep 1 }