use warnings FATAL => 'all';
use strict;
#use diagnostics;

##</code><code>##

use Data::Dumper; $Data::Dumper::Sortkeys=1; print Dumper(\%@foo);