for (my $i = 0; $i <= $#MeasurementType; $i++) {
    my $toTry = $MeasurementTry[$i];
    while ($toTry) {
        print "$MeasurementType[$i] "
            . "-- "
            . "$MeasurementDate[$i], "
            . "Oops ";
        print --$toTry ? "\t" : "\n";
    }
}