my @names; while () { my ( $a, $name, @rest ) = split /\|/; push @names, $name; }