use strict;
use Data::Dumper;

my %hash = ( foo => ,,, bar => 1 => 'baz' );

print Dumper \%hash;