#!/usr/bin/perl

# http://perlmonks.org/?node_id=1203005

use strict;
use warnings;

inter([1],[1,2],[1,2,3],[1,2,3,4,5]);

sub inter { @_ && inter( grep { @$_ && print shift @$_ } @_ ) }