Namaste Brethren, I am trying to remove a directory subcursively (like an rm -r) and by using File:Path I think I have it. But... the @ARGV won't accept variables in it.

#           This one won't work
#           @ARGV = ('$mail_directory/users/$table_ext/$user\@domain.c
+om') 
            unless @ARGV;

#           But this one will:
            @ARGV = ('/home/account/users/po/username@domain.com') 
            unless @ARGV;            
            die "usage: $0 dir ..\n" unless @ARGV;
                foreach $dir (@ARGV) {
                rmtree($dir);        
                }
          print "Deleting user's directory: @ARGV\n";
[download]

What am I missing? I feel so dumb!