perl -wle 'use Data::Dumper; my %a; @a{()} = (); print Dumper(\%a)'