#!/usr/bin/perl
use strict;
use List::Vectorize;
my $sets = [];
for (@ARGV) {
open F, $_ or die "cannot open $_";
push(@$sets, [ <F> ]);
close F;
}
print join "", @{intersect(@$sets)};
#!/usr/bin/perl
use strict;
use List::Vectorize;
my $sets = [];
for (@ARGV) {
open F, $_ or die "cannot open $_";
push(@$sets, [ <F> ]);
close F;
}
print join "", @{intersect(@$sets)};