my %total = (
  login    => 0,
  campaign => 0,
  work     => 0,
);

foreach my $func (keys %total) {  # qw(login campaign work)
  # do some things
  my $diff = calc_difference($var1, $var2);
  $total{$func} += $diff;
}