Select Code to Download

$/ = '</species>.$/;
my $prev_rec='';
...
  $prev_rec = $_;
  # process $_ somehow as it is unique
}

use Data::Dumper;

if (Dumper(\%struct1) eq Dumper(\%struct2)) {
  do something;
}