#!/usr/bin/perl -w
use strict;
open(FH, "<control.txt") or die "yada... $!";
while (<FH>) {
    my $key = join "", (split/:/)[13,21];
    %recs = ($key => $_);
}