my @lines = ; while () { say $_; } ####