foreach $i(0..@hydrogen_split){ 			
	chomp;
	$hydrogen_split{$key}++;
}

for ( sort grep { $hydrogen_split{$key} !=1 } keys %hydrogen_split){
print "$key\n";
}