#!/usr/bin/perl -w

use strict; 

my ($i, $keywords, @finalwords);
%$keywords = map { lc($_) => $i++} qw/foo bar bat hello foo HELLO/;

print join " ", @finalwords = sort {$keywords->{$a} <=> $keywords->{$b}} keys %$keywords;