warn "before if";
        if ($_[$i] =~ /^(.+?)\.(zip|t?gz|tar|bz2?|tbz)$/i) {
warn "in if"
           ...
        elsif (...) {
warn "in elsif 1";
           ...
        else {
warn "in else";