use strict;
use warnings;

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

print ("Please enter the number. ");
$num = <STDIN>;
chomp $num;

# exception
if ($num =~ /[a-zA-Z]/ || $num eq "") {
print "Not number.\n";
exit;
}

print ($num, " = ");
foreach my $elem (0..$#array) {
	print ("[", $array[$elem], "]", (($num % $array[$elem]) == 0 ? "OK" : "NG"));
	if ($elem == $#array) {
		print ("\n");
	} else {
		print (" = ");
	}
}