use strict;
use Digest::MD5 qw/md5_hex/;

for (1..10) {
    my $rand_id    = time() . {} . rand() . $$;
    my $session_00 =                md5_hex($rand_id);
    my $session_01 = substr        (md5_hex($rand_id) , 0, 32);
    my $session_02 = substr(md5_hex(md5_hex($rand_id)), 0, 32);
    printf "%s\n%s %s %s\n\n", $rand_id, $session_00, $session_01, $session_02;
}