foreach my $int ( 1 .. 600 ) {
    my $number = $int / $int;
    next if $number == 1;
    warn "$int / $int != 1 (== $number)\n";
}

produces: 

49 / 49 != 1 (== 1)
98 / 98 != 1 (== 1)
103 / 103 != 1 (== 1)
107 / 107 != 1 (== 1)
161 / 161 != 1 (== 1)
187 / 187 != 1 (== 1)
196 / 196 != 1 (== 1)
197 / 197 != 1 (== 1)
206 / 206 != 1 (== 1)
214 / 214 != 1 (== 1)
237 / 237 != 1 (== 1)
...