my %unique;
while (<IN>) {  # or whatever the file handle is
    my @fields = split /!/;
    $unique{$fields[-1]}++;   # last field in the row
}
my @drop_down = keys %unique; # Et voila