foreach (1..5) {

    if ( $object->method( "arg$_" ) ) {

        #   ... do stuff

    }

}


##</code><code>##

foreach ( qw/ arg1 arg2 arg3 arg4 arg5 / ) {

    if ( $object->method( $_ ) ) {

        #   ... do stuff

    }

}