#!/usr/bin/perl use strict; use warnings; use Benchmark qw(:all); use Template; my $constants = {}; for(1000){ $constants->{$_} =$_; } my $a = Template->new({CONSTANTS => $constants }); my $b = Template->new(); cmpthese( -1 , { constants =…