#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump qw/ dd /;
Main( @ARGV );
exit( 0 );
sub Main {
    UsedToBeJustDoWork();
}
sub UsedToBeJustDoWork {
    my $full_data = [
      ["M11", 0.1, 10, 24, 56, 77, 98, 72],
      ["M12", 0.3, 13, 44, 23, 45, 56, 11],
      ["M13", 0.4, 54, 23, 11, 25, 67, 91],
    ];
    
    
    my $d_to_h = [
      [ 24, 56, 77, 98, 72],
      [ 44, 23, 45, 56, 11],
      [ 23, 11, 25, 67, 91],
    ];
    
## I don't know what you want here
    my $these_first_row_average = $d_to_h->[0] + $d_to_h->[1] + $d_to_h->[2] + $d_to_h->[3] + $d_to_h->[4] / 4;
    
    my $final_output_wanted = [
## I don't know what you want here
        $these_first,
        $these_second,
        $these_third,
    ];
    dd( $final_output_wanted );
}