#! perl
use strict;
use warnings;
use diagnostics;

my %nationality_of = (
   'Ovid'          => 'Greek',
   'John Davidson' => 'Scottish',
   'Tennyson'      => 'English',
   'Poe'           => 'Tracky',    # Geek?
   );

my @nationalities = @nationality_of{ 'Ovid', 'Tennyson' };    # <-- Change parentheses to braces here!
print "@nationalities";

##</code><code>##

16:03 >perl 1162_SoPW.pl
Greek English
16:03 >