Stuff

print scalar localtime,",",localtime,",$new,$sample,$session,$sesshash->{IPAddress}[1]",join(",",map { blatant_obscurity($sesshash->{$_}[1]) if ( $_ !~ "IPAddress") } sort keys %$sesshash ),"\n";

sub blatant_obscurity {
        my $val = shift @_;
        $val =~ s/,/ /;
        return $val;
}