#!/usr/bin/perl
use strict;
no strict 'refs';
use warnings;
my $inhalt = '';

use Data::Dumper;
local $Data::Dumper::Useqq = 1;
local $Data::Dumper::Sortkeys = \&dumper_filter;
sub dumper_filter {
	my ($hash) = @_;
	return [(sort {lc $a cmp lc $b} keys %$hash)];
}
$inhalt .= '<pre>';
for my $key (sort keys %main::) {
	my $sym = ${"main::"}{$key};
	if (defined *{$sym}{SCALAR} and defined $$sym) {
		$inhalt .= Dumper [$key,$$sym];
	}
}
$inhalt .= '</pre>';

print "$inhalt\n";