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

package TieTimeArray;

sub TIEARRAY  { bless {}, shift }
sub FETCH     { my @self = localtime ; return @self }
sub FETCHSIZE { my $self = shift ; return scalar @{$self->{@self}} }

package main;

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