#!/usr/bin/perl -w
use strict;
use Digest::MD5 qw/md5_hex/;

my @sessions;
push(@sessions, 'xyz') for (0..1);
for (0..999999) {
  push(@sessions, create_sid());
}

my %double;
for my $key (@sessions) {
  $double{$key}++;
}

for my $key (keys %double) {
  print "$key: $double{$key}\n" if ($double{$key}>1) ;
}

sub create_sid {
  my $sid;
  #create a random SID
  $sid = rand(20)*rand(20);
  #my $time = time();
  $sid .= time/(int(rand(10)+1));
  #print "$sid";
  $sid = md5_hex($sid);
  return $sid;
}