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