my %h = map { $_, rand } 'a'..'z';

print "$_ => $h{$_}\n" for sort keys %h;