use File::Spec; 

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

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

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