foreach $line (@bg) {