#!/usr/bin/perl -w
@names=("sun xingzhe ","zhu bajie ","tang seng ","sha seng");
foreiach $name(@names) {
print " $name \n" ;
}
@names=("sun xingzhe ","zhu bajie ","tang seng ","sha seng");
foreiach $name(@names) {
print " $name \n" ;
}