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