added perl-switching section and comparison