use Data::Dump;
dd( keys %{{ map { $_,1 } 1,2,1,2,1,4 }} );
__END__
(4, 1, 2)