#!perl
# Name: Assign hashes
# Require: 4
# Desc:
#
%hash = ('jan', 1, 'feb', 2, 'mar', 3, 'apr', 4, 'may', 5, 'jun', 6, );
require 'benchlib.pl';
&runtest(8, <<'ENDTEST');
%hash2 = %hash;
%hash2 = ();
ENDTEST
#!perl
# Name: Assign hashes
# Require: 4
# Desc:
#
%hash = ('jan', 1, 'feb', 2, 'mar', 3, 'apr', 4, 'may', 5, 'jun', 6, );
require 'benchlib.pl';
&runtest(8, <<'ENDTEST');
%hash2 = %hash;
%hash2 = ();
ENDTEST