use warnings;
use strict;

my @genpass = (1 .. 3);
my @nup = (<DATA>);

foreach (@nup) {
    s/xyz456/$genpass[0]/;
    shift (@genpass);
}

__DATA__
1
2
3