How will you remove the duplicate data from @array=("perl", "php”, "per", "asp")?

sub uniqueString {
return keys %{{ map { $_ => 1 } @_ }};
}
@array = ("perl", "php”, "per", "asp");
print join(" ", @array), "\n";
print join(" ", uniqueString(@array)), "\n";