chomp @koroesi;
my %koroesi = map { ( $_ => 1) } @koroesi;