[Wellington-pm] ? shorten an Perl snippet

[pfCd?Y*_Qbdb6 at perform.shyuser.com]

Any monger got the short version of for Perl 50 day average 
when written as:
{
$product1 =
($split_line[10][5]+$split_line[11][5]+
$split_line[12][5]+$split_line[13][5]+$split_line[14][5]+$split_line[15][5]+$split_line[16][5]+
$split_line[17][5]+$split_line[18][5]+$split_line[19][5]+$split_line[20][5]+$split_line[21][5]+
$split_line[22][5]+$split_line[23][5]+$split_line[24][5]+$split_line[25][5]+$split_line[26][5]+
$split_line[27][5]+$split_line[28][5]+$split_line[29][5]+$split_line[30][5]+$split_line[31][5]+
$split_line[32][5]+$split_line[33][5]+$split_line[34][5]+$split_line[35][5]+$split_line[36][5]+
$split_line[37][5]+$split_line[38][5]+$split_line[39][5]+$split_line[40][5]+$split_line[41][5]+
$split_line[42][5]+$split_line[43][5]+$split_line[44][5]+$split_line[45][5]+$split_line[46][5]+
$split_line[47][5]+$split_line[48][5]+$split_line[49][5]+$split_line[50][5]+$split_line[51][5]+$split_line[52][5]+
$split_line[53][5]+$split_line[54][5]+$split_line[55][5]+$split_line[56][5]+$split_line[57][5]+$split_line[58][5]+
$split_line[59][5])/50;
}