my $basedir = '/mydirectory/directory/';

for (@dirs)
{
 s/^$basedir//;
 print "$_\n";
}