my @array1=qw(I like to eat tacos); my @array2=qw(Do you like to eat burritoes); my @diff=get_diff(\@array1,\@array2); @diff=( ['Do',0,0], ['you',1,0], ['like',2,1], ['to',3,2], ['eat',4,3], ['burritoes',5,4] );