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

$db->filter_fetch_value( sub { $_ = eval } );

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