use strict; use warnings;
use Path::Tiny qw/ path /;
use List::Util qw/ max sum /;

my $in  = '1159573.dat'; my $out = '1159573.out';

my @lines = path( $in )->lines({ chomp => 1 });

my $max = max @lines;
my $avg = sum( @lines ) / scalar( @lines );

path( $out )->spew( @lines . " values; max: $max; avg: $avg" );

__END__