--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/onto-toolkit/tools/ontology/get_list_intersection_from.pl	Tue Jun 07 17:51:45 2011 -0400
@@ -0,0 +1,37 @@
+#!/usr/bin/perl -w
+
+use Carp;
+use strict;
+use warnings;
+
+# Takes in first argument
+my ($input_file1, $input_file2 ) = @_;
+
+# Opens the input files
+	open my $fh, "<", $ARGV[0] or die "could not open $ARGV[0]: $!"; 
+	my @list1 = <$fh>; 
+
+
+	open my $fh1, "<", $ARGV[1] or die "could not open $ARGV[1]: $!";
+	my @list2 = <$fh1>;
+
+# generates an intersection of terms from the first and second arguments
+my @intersection_terms;
+foreach (@list1)
+{
+	my $itemlist1 = $_;
+	
+	foreach (@list2)
+	{
+		my $itemlist2 = $_;
+		
+		if ($itemlist1 eq $itemlist2)
+		{
+			push @intersection_terms, $itemlist2;
+		}
+	}	
+}
+print @intersection_terms, "\n";
+
+
+exit 0;