my @a = split /./, $a->[0];  #split IP address on periods
...