my ($offset) = grep {$lines[$_]=~/USER\s+NOTE/} (0..$#lines);
splice(@lines,$offset+1,0,"@$global_variables_list");