my $ip = 1;
my @ip = qw (2 3 4);

foreach my $ip (@ip){
  print "$ip\n";
}
 
print "$ip\n";