#!/usr/local/bin/perl
use strict;
use warnings;

my %hash = ( '1' => '11', '2' => '2', '3' => '333')