use Data::Dumper;

my %hash = (
  2 => ['BBB', 'EEE'],
);

print Dumper \%hash;