for my $session (sort keys %session_start) {
    print "Session: $session - $session_start{ $session } - $session_end{ $session }\n";
};