use warnings;
use strict;
use Acme::Tools qw(avg);

my @nums;
while (<DATA>) {
    push @nums, (split)[3];
}
print avg(@nums), "\n";

__DATA__
a b c 3
d e f 4
h j k 5
[download]

See also:

• Acme::Tools
• split
• Slices