$ENV{PATH} = join ';',
             'C:\\123',
             '"C:\\Program Files\\456"',
             $ENV{PATH};

##</code><code>##

$ENV{PATH} = qq{C:\\123;"C:\\Program Files\\456";$ENV{PATH}};