perl -e 'my %hash = (q|first|=>1,q|third|=>3,q|second|=>2); print keys %hash;'

firstsecondthird