my $path = "/very/long/path/here";
  # or maybe: opendir(my $path, "/very/long/path/here");

move($abc1,"$path/compleat/");

 foreach my $file (<$path/MHSAPC/*csv>){chomp; ... ## read also about glob