#!/usr/bin/perl
use strict;
use warnings;
use utf8;

our %g = (
  Kappa => "\x{039a}",
  alpha => "\x{03b1}",
  iota => "\x{03b9}",
  rho => "\x{03c1}",
  upsilon => "\x{03c5}",
  etatonos => "\x{03ae}",
  kappa => "\x{03ba}",
);

my $sunday = MakeWord(qw(Kappa upsilon rho iota alpha kappa etatonos));

print "Sunday in greek is $sunday.\n";

sub MakeWord {
  my $word;
  for (@_) {
    $word .= $g{$_};
  }
  return $word;
}