#!/usr/bin/perl -w

use diagnostics;
use strict;


my %hashref = (
  '01' => '1000',
  '02' => '1001'
);

my $code = '01';

print STDOUT $hashref{$code};



