Hash de-duplication in Perl

# This works as well...

my %number_hash = map {$_, 1} @list;

isn't it trivial? I use this all the time