perl -e '%h = ( q => 2, w => 2 ); print reverse %h = reverse %h'