$slide = $ppt->Slides->Add($_, ppLayoutBlank)
    for 1..4;

##</code><code>##

foreach my $good_guy ( @ARGV ) {
    push @my_attr, get_attributes( $good_guy );
}