foreach $line (@bg) {

##</code><code>##

foreach $line (@gb) {