Select Code to Download

$db = tie @tie, ...., $DB_RECNO;

...
while($tie[0]->timestamp < time - 3600) {
  shift @tie;
}

foreach $rec (@tie) {
  my $x = $rec;
  print "timestamp1: ", $rec->timestamp, "\n";
  print "timestamp2: ", $x->timestamp, "\n";
}

foreach $rec (@tie) {

...

  print "rec: $rec, x: $x\n";
}

$x = $rec;
print $x == $rec ? "match\n" : "differ\n"; # always returns 'differ'