sub print_tofile{ open(TMPFILE, ">>$file") or die "Can not open $file\n"; while ($pointer = $sth->fetchrow_hashref){ $date = $pointer->{'date'}; $logtime = $pointer->{'logtime'}; $user = $pointer->{'user'}; $volume = $pointer->{'volume'}; $directory = $pointer->{'directory'}; $filesize = $pointer->{'filesize'}; $key = "$user\t$volume\t$directory"; if ( exists $data{$key} ) { $total = ($filesize - $data{$key}); print TMPFILE "$key\t$total\n"; } else { $data{$key} = $filesize; } } # End of while. close TMPFILE; }