there are probably faster solutions, but if your arrays don't get too large nested loops would be acceptable:

foreach $el (@Fullrecord) {
    @splitarray=split(/\_/,$el);
    foreach $nameel (@Names) {
        push (@DesiredRecord, $nameel) if ($nameel eq $splitarray[0]);
        }
}
[download]