#!perl -l
<>;
$n[ $_ ]=$_ while <>;
defined and print for @n;