-my @tot;
-my $nocalls;
-
-my $l = join ',', @pref;
-push @out, $self->msg('statvhft', $l, $date, $days);
-#push @out, $self->msg('statvhft', join(',', @dxcc), cldate(time));
-push @out, sprintf "%10s|%4s|%4s|%4s|%4s|%4s|%4s|%4s|%4s|%4s|%4s|", qw(Callsign Tot 6m 4m 2m 70cm 23cm 13cm 9cm 6cm 3cm);
-
-for (sort {$list{$b}->[0] <=> $list{$a}->[0] || $a cmp $b} keys %list) {
- my $ref = $list{$_};
- $nocalls++;
- my @list = (sprintf "%10s", $_);
- foreach my $j (0..9) {
- my $r = $ref->[$j];
- if ($r) {
- $tot[$j] += $r;
- $r = sprintf("%4d", $r);
- } else {
- $r = ' ';
+ my @tot;
+ my $nocalls;
+
+ my $l = join ',', @pref;
+ push @out, $self->msg('statvhft', $l, $date, $days);
+ #push @out, $self->msg('statvhft', join(',', @dxcc), cldate(time));
+ push @out, sprintf "%10s|%4s|%4s|%4s|%4s|%4s|%4s|%4s|%4s|%4s|%4s|", qw(Callsign Tot 6m 4m 2m 70cm 23cm 13cm 9cm 6cm 3cm);
+
+ for (sort {$list{$b}->[0] <=> $list{$a}->[0] || $a cmp $b} keys %list) {
+ my $ref = $list{$_};
+ $nocalls++;
+ my @list = (sprintf "%10s", $_);
+ foreach my $j (0..9) {
+ my $r = $ref->[$j];
+ if ($r) {
+ $tot[$j] += $r;
+ $r = sprintf("%4d", $r);
+ }
+ else {
+ $r = ' ';
+ }
+ push @list, $r;