while($C3 ne 'FREE') {
    $C3 = 'FREE';
    print "$C3\n";
}