Perl Subroutine to get random

Generate random number with given number of digits

sub getRandomNum {

     my $count = shift;

     return  join('', map {  int(rand(9)) } (1 .. $count) );

}

Generate random word with given number of characters

sub getName{

    my $count = shift;

    return join ('',map { ('a'..'z')[rand 26] } 0 .. $count);

}