#!/usr/bin/perl -w
use strict;
package TieTimeArray;
sub TIEARRAY  { bless [], shift }
sub FETCH     {  (localtime)[$_[1]]  }
sub FETCHSIZE { 9 }
package main;
my @now; tie (@now, "TieTimeArray");
while (1) { local $"=' '; print "@now\n"; sleep 1;  }