Help for this page

Select Code to Download

Select or download this

    foreach my $name(keys %input) {
        if ($input{$name}[1] eq $chr) {