#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11111080
use warnings;

my @file1 = split /^/, <<END;
aa-aa1-aa
aa-aa2-aa
aa-aa2-ab
aa-aa3-bc
END

my @file2 = split /^/, <<END;
V1111:something
V1111:something
V2222:something
V1111:something
END

my @file3 = split /^/, <<END;
aa-aa1-aa
aa-aa2-ab
END

my %one2two;
@one2two{@file1} = @file2;

print $one2two{$_} // '' for @file3;
[download]