#!/usr/bin/perl

binmode(STDOUT, ":utf8");
use 5.010;
use strict;
use warnings;
use diagnostics;
use utf8;

my @fred;
my $fred;

$fred = "HALLO";
$fred[0] = "eins";
$fred[1] = "zwei";
$fred[2] = "drei";
$fred[3] = "vier";
$fred[4] = "fünf";
$fred[5] = "sechs";
$fred[6] = "sieben";
$fred[7] = "acht";
$fred[8] = "neun";
$fred[9] = "zehn";

print @fred;

print "\n";

print @fred."\n";

##</code><code>##

einszweidreivierfünfsechssiebenachtneunzehn
10