my @srv_list = qw(1 2 3 45);
for my $list(@srv_list){
  my $file = '/home/'.$list.'.txt';
  open(my $fh,">$file") or die $!;
  print $fh $list,"\n";
  close $fh;
}