@re;
for ($i =0; $i<20; $i++){
	$re[$i]  = $i;
}
print "@re\n";
foreach (@re){
	next if ($_ == 14 || 15 );
	print;
}