#!/usr/bin/perl

use strict;
use warnings;

my $href;            # not initialized

for my $key (keys %$href) {
    # ... do something
}

use Data::Dumper;
print Dumper $href;  # --> $VAR1 = {};