my $Result = 0;
foreach ( @Data )
{
  $Result ^= $_;
}