Since $this_loc is read from a database...

NULL values fetched from the database translate into undef values for perl. See the last example in Simple Examples in the DBI docs for a solution. Alternatively, you can set no warnings 'uninitialized'; locally for that block of code.