Select Code to Download

use strict;
use warnings;
...
}

print join ('|', @$_), "\n" for @names;

Daniel|R|Von Vanderschmidt
Daniel|Von Vanderschmidt
Daniel|De La Silvia
Daniel|De Silvia
Daniel|La Silvia