use POSIX;
 
for (grep{ /^_\w/; } keys %::) {
  eval( "print \"$_ is set to \".$_.\"\n\";");
}