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

my @zahlen =  qw/18 19 20 23 21 19/;
my $sum = 0;
my $zahlen = scalar @zahlen;

$sum += $_ for @zahlen;
print $sum/$zahlen . "\n";