my @values=([some,things] , [1,2,3,4,5,6]);
my ($a, $b, $c, $d) = CalcMinAvgMaxSum( $values[1]);
sub CalcMinAvgMaxSum()
{
    my $ArrayOfValues_REF = shift;
    for my $val (@{$ArrayOfValues_REF})
    {
         print "$val\n";
    }
}