use Socket qw( inet_aton ); ... fileStore => join ('', map {inet_aton $_} @mynets),