Untitled

#!/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)) + $rangecl;
  chr($random);
}

sub char_h{
  my $rangeCH = $charh[25];
  my $rangeCL = $charh[0];
  my $random = int(rand($rangeCH-$rangeCL)) + $rangeCL;
  chr($random);
}

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

print"@result\n";