$foo;
$bar = "ahhhhh";
while ( $foo eq $bar ) {
    # execute
}