#!usr/bin/perl5.8.8

use strict;
use warnings;

my @line1 = qw(C A B G F E);
my @line2 = qw(D B F);
#assume line 2 is always equal in size or smaller

foreach my $i (@line2)
{
	foreach my $j (@line1)
	{
	if ($i eq $j) {print "$i\n";}
	}
}