#!/usr/bin/perl5.10 -w

my %hash1 = {
  test1 => 'test1',
  test2 => 'test2'  
};

no warnings;
my %hash2 = {
  test1 => 'test1',
  test2 => 'test2'  
};

use warnings;
my %hash3 = {
  test1 => 'test1',
  test2 => 'test2'  
};

##</code><code>##

Reference found where even-sized list expected at ./test_warnings.pl line 3.
Reference found where even-sized list expected at ./test_warnings.pl line 15.