#!/usr/local/bin/perl
use strict;

        my %pvalues = ( 1=> 0.5453980,
                        2=> 0.4902384,
                        3=> 0.8167950,
                        4=> 0.2821822,
                        5=> 0.4693030,
                        6=> 0.6491767,
                        7=> 0.9802138,
                        8=> 0.1155778,
                        9=> 0.9585124,
                        10=> 0.4069490
                        );