local $" = '*'; print "@array";