#!/usr/bin/perl

my %a = ( 'a' => '111' );
%a = ();

print "test_1" if ( %a );
print "test_2" if ( defined( %a ) );