reduce code
Perl ext~