sub xxx
{
my $x1 = shift;
my $x2 = shift;
print "$x1, $x2\n";
}