package Banker; no strict; no warnings; use base qw/Greedy SelfAggrandising MorallyBereft/; 1; #### while (my ($banker, $rubbish) = each %bankers) { delete $bankers{$banker}; }