Select Code to Download

if ($alphabet{$s} % 2) {

foreach $record (@contents)  {
# where does @contents come from?
...
# :)

    $s = substr($nice,0,1);

(defined $alphabet{$s} ? $alphabet{$s} : 0) % 2
# use exists() if all values of %alphabet are defined