@seen{@data} = (1) x @data;

    # or

    foreach (@data)
    {
        $seen{ $_ } = 1;
    }