foreach my $path ( keys %paths )
{