sub ip2rgb { my @ip = @_; push @ip, (0) x 3; @ip[0..2]; }