@EG01 = ($artefact) x grep {$_ eq 'QT95EG01'} @new2;
@EG02 = ($artefact) x grep {$_ eq 'QT95EG02'} @new2;