@_=(1);L:for(2..100){$i=0;while(@_>++$i){next L if!($_%$_[$i])}push@_,$_}