Select Code to Download

while ( my ( $key, $value ) = each %pwd_reset_errors ) {
   if ( $key =~ m/^$error.*/ ) { 
   ...
   }

my $one = 1;

...
}elsif(1 =~ $one){
...
}