$replaceString = sub {
    "\t\t<exML LOLZ = \"" . unpack(\'a1\', $1) . "\" />"
};
# time passes

    $array[$elementIdx++] = $replaceString->();