#!/usr/bin/perl
use warnings;
use strict;
# defines country => language hash
my %langs = ( England => 'English',
 France => 'French',
 Spain => 'Spanish',
 China => 'Chinese',
 Germany => 'German');

my $countryid = 'England';

my $langsref = \%langs;

# get language of England
my $englishlang =  %{ $langsref }{$countryid}; # <---- this doesn't work. I wanna do the assignment all in this one line but can't figure out assigning while dereferencing. 
print $englishlang;