I have this little script but the print command inside the foreach loop is not working. It doesn't giving me any value.
Does anyone knows why?

thanks a lot..

Code:
#!/usr/bin/perl -w
use Net::SSH::Expect;


### OPEN DEVICE LIST AND READ EACH DEVICE:
sub Open
{
$data_file = "/home/andreas.tsentis/GJ/cdp.txt";
open(DATA, $data_file);
@DeviceList = <DATA>;
close (DATA);
}


foreach $host (@DeviceList)
{
	chomp $host;
	print "$host\n";

}