my $p1 = shift;
my $p2 = shift;
my $p3 = shift;