#!/usr/bin/env perl

use strict;
use warnings;
use diagnostics;

use Array::Contains;

my @array1 = ("A2","A5","C1","G0","T3","T4");
my @array2 = ("A2","A3","A5","G1","G0","G4");

foreach my $elem (@array1) {
    print "$elem\n" if(contains($elem, \@array2));
}