@char = (1,3,4,5,6,7,8,9);
%char = map { $_, 1 } @char;
for(1 .. 9) { print if not exists $char{$_} }

イマイチ？