I started to write this script, but am stuck:

#! perl -w 
use strict;
use warnings;

my @fst;
open (my $fst_in, "<", "file1") or die $!;
while (<$fst_in>){
    my ( $chr, $bp, $fst ) = split;
    next if m/CHR/;
    push @fst, [$chr, $bp, $fst];
}
close $fst_in;

my$F=shift@ARGV;
open IN, "$F";
while (<IN>){
    my@L=split;
    if($L[0]=~ /^$fst->[0]$/
       and $L[1]=~ /^$fst->[1]$/
        ){
    if( # compare every field starting at field 3
[download]