Select Code to Download

use strict;
use warnings;
...
delete @diff{@mounted};

print Dumper [keys %diff];

$VAR1 = [
          '/docs       filer146:/vol/my_documents',
          '/software   filer1255:/vol/my_software'
        ];