local $" = ','; print "@arr\n";