use strict;
use warnings;

my @num;
my @array = (2, 3, 4, 5, 6);
my $result;

for (my $i = 0; $i < 10; $i++) {
	print ("Please enter the number.(", $i + 1, ") ");	
	$num[$i] = <STDIN>;
	chomp $num[$i];

	$result .= ($num[$i], " = ");
	if ($num[$i] =~ /[^a-zA-Z]/ || $num[$i] ne "") {
		for (my $j = 0; $j < scalar(@array); $j++) {
			$result .= ("[" . $array[$j] . "]" . (($num[$i] % $array[$j]) == 0 ? "OK" : "NG"));
		}
	}
	$result .= "\n";
}

print ($result);