Perl script for practice