my $whatever = 1;
while( $whatever ){
    for my $ix ( 1 .. 4 ){
        ...
    }
}