############  SCAN DIRECTORY SUBROUTRINE ####################
{
    my @paths;
    sub dir_listing {
        my ($root) = @_;
        $root .= '/' unless $root =~ /\/$/;
        for my $f (glob "$root*"){
            push @{$paths}, $f if $f =~ m/\.rar$/;
            dir_listing($f) if -d $f;
        }
        return $paths;
    }
}

##</code><code>##

if (defined $paths){
              ###do something;
              print "paths defined"; }
else{
#do something else;
print "paths not defined"; }