Advanced Perl Functions : ?

[Dave987]

Thanks for your help Derision. You say your not a Perl guru yourself so:

Could anyone check this one please?

The Code snippet says

$random = int( rand( $Y-$X+1 ) ) + $X;

Does this mean:

{
quest::summonitem($random =int(rand( 1001-1009)))
}

would summon any item between 1001 and 1009 ?

See Derision ? That's why I asked for Code snippets - I'm 90% sure thats completely wrong, though I thank you for trying to help.
It's appreciated.