perl -le 'print for keys(%!); print for keys ::'