my @numbs = qw(1 2 3 4 5 6 7 8 9 10);

# loop style
sub loop {

	my $numbs = shift;
	my $sum;

	map { $sum += $_; } @{$numbs};
	return $sum;
}

# recursive style - warning: destroys array
sub recurse {

	my ($numbs, $sum) = @_;

	if (scalar @{$numbs}) {
		$sum += pop @{$numbs};
		&recurse($numbs, $sum);
	}
	else {
		return $sum;
	}

}