foreach $rec (@tie) {

  my $x = $rec;

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