рекурсия в перл

sub sortScriptsR
{
    my $curDir = $_[0];
    my @scripts = @_[1..@_-1];
    my @sorted = ();
    my @dirs = ();
    foreach my $script (@scripts)
    {
        $script =~ $curDir;
        my @subDirs = split "/",$';
        if (@subDirs == 1)
        {
            $sorted[@sorted] = $script;
        }
        else
        {
            $dirs[@dirs] = $subDirs[1];
        }
    }
    @sortes = sort @sorted;
    @dirs = sort @dirs;
    for (my $i = 0; $i < @dirs; $i++)
    {
        my @scriptsAtDir = ();
        foreach my $script (@scripts)
        {
            $scriptsAtDir[@scriptAtDir] = $script;
        }
        my @sortedAtDir = sortScriptsR $curDir."/".$dirs[$i]."/", @scriptsAtDir;
        my $countSorted = @sorted;
        @sorted = concatMas $countSorted, @sorted, @sortedAtDir;
    }
    return @sorted;
}