for ( 0..500000) {
push @aa, "abcdef"
}
print "waiting";
$t=<STDIN>