Change your write it line from

  &write_it($session_hash{$session},$line2);
[download]

to -

  write_it($session_hash{$session}{$_},$line2)
       for keys %{$session_hash{$session}}; # retrieve user names
[download]

And it will work.