# sort method
my @values = qw( one foo bar one baz two quack baz );
my %h = ();
foreach (@values) {
    $h{ $_ } ||= $.;
}

print "\n\nSort method:\n";
print (join ", ", sort { $h{a} cmp $h{b} } keys %h);