foreach my $scalar(@array)
{
$total+=scalar;
}