use File::Spec; 

print "File Name?\n";
$ToBeDeleted = <STDIN>;
open(IN, $ToBeDeleted) or die " The file $TheFile .....Missing In Acti
+on.\n";
@arr = <IN>;

print "Directory where files are located?\n";
$Path = <STDIN>;

$x=File::Spec->catfile("$path","@arr"); 
unlink $x;
[download]

You're forgetting about the newlines that you get with the <STDIN> operators. Your example would be better written as:

use strict;
use File::Spec; 
print "File Name?\n";
my $ToBeDeleted = <STDIN>;
chomp $ToBeDeleted;
open(IN, $ToBeDeleted) or die " The file $TheFileToBeDeleted .....Miss
+ing In Action.\n";
my @arr = <IN>;
chomp @arr;
print "Directory where files are located?\n";
my $Path = <STDIN>;
chomp $Path;
foreach my $file (@arr)
{
 my $x=File::Spec->catfile($Path, $file); 
 unlink $x;
}
[download]

You have a few problems other than the newlines: for one thing, you put quotes around your variables, interpolating them into strings (why do people do this?). This will make your @arr into a space-separated string, which is not what you want. And you're not processing each of your files separately through catfile.

OK, the problem is that you can't stick an array as an argument to catfile to do what you're trying to do. (Not that you can't use an array, it just won't do what you want.) Unless you've changed some of Perl's variables, the "@arr" is flattening the list of filenames into a single string, separating the file names with blanks. (Also, you don't have to quote $path, the first argument. Looks like you're used to shell scripting. You may want to look at Perl traps for the unwary.)

Here's one way to code your loop:

foreach my $filename (@arr) {
    $x = File::Spec->catfile($path, $filename);
    unlink $x;
}
[download]

This is a rather verbose way, but you can see the correspondence to your code. Here's a one-line way to do it: unlink map {File::Spec->catfile($path, $_)} @arr;Warning: this will probably a touch off a round of golf ;-)

HTH