sub bar {

               return \%locations;

        }

        sub foo {

              $locations = &bar($dbh);

              print "The reference returned from bar is : [$locations]\n";


              %location_Names = %$locations;

         }