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

##</code><code>##

my $one = 1;

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