System Functions Perl

$letter = ('a' .. 'z')[26 * rand];
print $letter;