Something

#!/usr/bin/perl

@num=(1...9);
@charl=(97...123);
@charh=(65...91);
@result=();
sub num{
my $rangeh = $num[8];
my $rangel = $num[0];
my $random = int(rand($rangeh)) + $rangel;
}
sub char_l{
my $rangech = $charl[25];
my $rangecl = $charl[0];
my $random = int(rand($rangech)) + $rangecl;
}

push(@result, &char_l($random));
push(@result, &num($random));

print"@result\n";