open DATA, "<", $myfile or die "Could not open $myfile:$!\n";

##</code><code>##

my @devices;

##</code><code>##

while (<DATA>) {
    chomp;
    next if !/^cgw01/;
    push @devices, $_;
}