my $code = join "", @codearray; eval $code;