title: Perl Directory Analysis
body: <p>I have a Deep Directory Structure with the following format</p>
  
  <pre>
  /intf1/syst1/some1
  /intf3/syst4/some111
  /intf1/syst2/some2
  /intf2/syst1/some1
  /intf2/syst3/some9
  /intf4/syst2/sdsds
  </pre>
  
  <p>Need the output, in the format"</p>
  
  <pre>
          syst1   syst2   syst3   syst4
  intf1   x       x       
  intf2   x               x       
  intf3                           x
  intf4           x
  
  </pre>
  
  <p>How can I do this in Perl?</p>
  
  <p>NOTE: intf1... intfn need to be sorted Alphanumerically, similarly syst1... systn the same</p>