sub directories_first ($$) {
   my ($a,$b) = @_;
   # ...
}