Select Code to Download

my %hash = ('First' => 1, 'Second' => undef );
print "First\n" if exists $hash{'First'};
...
__OUTPUT__
First
Second

while ( my ( $key, $val ) = each %hash ) {
    delete $hash{$key} if not defined $val;
}