#!/usr/bin/perl
use strict;
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)];
}
my $d = Data::Dumper -> new ([$ENV{to_dump}]);
$inhalt .= '<pre>' . Dumper ($d) . '</pre>';

print "$inhalt\n";