%a = map {$_ => ++$i} a..z;
chomp($_ = <STDIN>);
exists $a{$_} ? print "$a{$_}\n" : print "Everything else\n";