my @numlist = ....;
    my %numbers;
    @numbers {@numlist} = ();

    die "Not valid\n" unless @numlist == keys %numbers;
    exists $numbers {$_} or die "Not valid\n" for 1 .. @numlist;

    print "Valid\n";

    __END__