#!/usr/local/bin/perl
use strict;
use warnings;
%h=('1', 'one', '2', 'two', '3', 'three');