http://perlmonks.org.ru/vorota_v_perl/Compare_K-EDIT_1.JPG