eval { 
  local ($var1, $var2, %hash1, %hash2);
  # do some junk
}