sub get_neg_10_outta_these {
    my $n = shift;
    my $sum; 
    $sum += $n - $_  for (@_);
    return $sum; 
}

my @nums = (2, 4, 5, 7); 
print get_neg_10_outta_these(@nums),"\n";