$CalcData->{$main}{'uppercase'} += $uppercase;
$CalcData->{$main}{'smiley_happy'} += $smiley_happy;
$CalcData->{$main}{'smiley_sad'} += $smiley_sad;
+
+ require Data::Dumper;
+ print STDOUT Data::Dumper->Dump ([$CalcData->{$main}], ["CalcData->{$main}"]);
}
}
sub output
{
+ calculate ();
+
my $first_nick;
my $first_name;
my $second_nick;