foreach my $key (@hydrogen_split) {
$hydrogen_split{$key}++;
}

foreach my $key ( sort grep { $hydrogen_split{$key} > 1 } keys %hydrogen_split){
print "$key\n";
}