sub encrypto($) {
     my ($password) = @_;
    ...
  }