The only problem is your expectations. C:\data\mydata\file/1.xls
is a perfectly valid Windows path.
File::Spec can normalize the path for you.
use File::Spec::Functions qw( canonpath );
$path = canonpath($path);
or
use File::Spec::Functions qw( canonpath );
@files = map { canonpath($_) } @files;