Select Code to Download

use Data::Dump qw( pp );
# some code here
print pp \@ip;
chomp(@ip);
print pp \@ip;

my @ip;
{  
...
  chomp(@ip);
  close $dat;
}