#!/usr/bin/perl
  2 
  3 use strict;
  4 use warnings;
  5 use diagnostics;
  6 
  7 my %nationality_of = (
  8    'Ovid'          => 'Greek',
  9    'John Davidson' => 'Scottish',
 10    'Tennyson'      => 'English',
 11    'Poe'           => 'Tracky',    # Geek?
 12    );
 13    
 14 my @nationalities = @nationality_of( 'Ovid', 'Tennyson' );
 15 print "@nationalities";
 16