use strict;
use warnings;
use List::Compare;

my @array1 = split /\n/, <<END1;
/home       filer1232:/vol/home1
/mystuff    filer1233:/vol/project
/data       filer1234:/vol/example_data
/software   filer1255:/vol/my_software
/tools      filer1235:/vol/my_tools
/docs       filer146:/vol/my_documents
END1

my @array2 = split /\n/, <<END2;
/home       filer1232:/vol/home1
/mystuff    filer1233:/vol/project
/data       filer1234:/vol/example_data
/tools      filer1235:/vol/my_tools
END2

my $lc = List::Compare->new( \@array1, \@array2 );

my @Lonly = $lc->get_unique;

print "$_\n" for @Lonly;

##</code><code>##

/docs       filer146:/vol/my_documents
/software   filer1255:/vol/my_software