[완료] perl smart matching 질문좀 드려요~

#!/usr/bin/perl
use warnings;
use strict;
use 5.010;
 
sub divide {
	my $number = shift;
	my @list;
 
	foreach(2..($number/2)) {
		push @list, $_ unless $number % $_;
	}
	return @list;
}
 
given($ARGV[0]) {
	my @result = divide($_);
 
	when(@result ~~ 2) {print "$_ is even\n"; continue;}                 # 문제 부분
	when(!(@result ~~ 2)) {print "$_ is odd\n"; continue;}               # 문제 부분
	when(@result ~~ []) {print "$_ is prime\n"}
	default {print "$_ is dividible by @result\n"}
}