#!/usr/bin/perl -w
use strict;
my %lefthand= qw(dsfddf asdfsfda);

print $lefthand {dsfddf};