if ( $nameA =~ m#^$nameB$#) {
        print "$nameA, $machine, $password\n";
     }