quantile normalization script in Perl