Re^2: If the universe was more like Perl, I would...

[Bloodnok]

You sure it shouldn't be ...

package Banker;
no strict;
no warnings;

use base qw/Greedy SelfAggrandising MorallyBereft/;

1;

or even ...

while (my ($banker, $rubbish) = each %bankers) {
    delete $bankers{$banker};
}