Select Code to Download

use strict;
use warnings;
...
@unique {@strs} = ();

print Dumper (\%unique);

$VAR1 = {
          '/Workstation_X_X/<someotherpath>/filename.xxx' => undef,
          '/Workstation_X_X/<someotherpath>/filename.yyy' => undef
        };