for study perl-rev