print join ' ', $p->[0], $p->[1]; print "\n";