while(<F>)
    {
    if(/IP Address/)
        {
        @split0= split(/ /, $_);
         @MYIP0=(@MYIP0,@split0);
        }

##</code><code>##

@MYIP0 = ( 'IP', 'Address', "192.168.1.1\r\n" )

##</code><code>##

while (<F> {
  if (/IP\sAddress\s+(\d+\.\d+\.\d+\.\d+)/) {
    push @MYIP, $1;
  }
  ...
}
$ff = $MYIP[0];
$fk = "$ff:255.255.255.0";

# even better, use 2 arg version of Net::Netmask->new2
$block = Net::Netmask->new2( $MYIP[0], '255.255.255.0');
...