foreach my $i (@array)
{
   calc($i);
}