use File::Spec::Functions qw( catfile );

foreach (@files) {
    my $file = catfile($start_dir, $_);
    ...
}