my @htmls = qw( ... ); my @xmls = qw( ... ); my @flats = qw( ... ); my @filters; push @filters, map { FilterWebHTML->new($_) } @htmls; push @filters, map { FilterWebXML->new($_) } @xmls; push @filters, map { FilterFlatFile->new($_) } @flats; $_->perform_filter() for @filters;