my($name, $pwd);
    while(<LIST>) {
        chomp;
        
        $name = $pwd = $_ ;
        $name =~ s/\s//g ;
        $pwd =~ s/\s//g ;
        $pwd =~ tr  [ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz]
                    [2223334445556667778889990022233344455566677788899900] ;
        
        write NEWFILE ;
        
        }