#!/usr/bin/env perl 
use strict;
use warnings;
use Statistics::Lite 'mean';

my $line = 'Charles 25 24 26';

my ($name, @fields) = split (/ /, $line);
my $mean = mean (@fields);
printf "%s average is %.2f\n", $name, $mean;