exported COLUMNS before Perl here document