Perl Script to make Dotplots