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