Select Code to Download

my @alist = (
  [key1 => value1],
...
     # but don't worry about that if you don't know lisp.
  }
}

sub hashrassq {
  my ($hashref, $value) = @_;
...
     return $_ if $$hashref{$_} eq $value;
  }
}