去重

my @cancer = grep{!$_{$_}++}@Cancer;