perl -e 'if (not $I{dance}) {not my $revolution;}'