while ( machwas ) {

last if $i==5 ;


$i++ ;

}