aide sur perl

bonjour,

y-a qq'un pour me traduire ces 2 lignes de perl?

    @chars     = ( "A" .. "Z", "a" .. "z", 0 .. 9, qw(! @ $ % ^ & *) );
    $unique_key = join("", @chars[ map { rand @chars } ( 1 .. 31 ) ]);

Comment $unique_key peut-être unique?

merci
anne