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