#!/usr/bin/perl

use warnings;
use Average;

$d = Average::av($res);
print $d;