my ($i,$j,$tmp);