If you add use strict; to the top of your code you will immediatly get an error that tells you what went wrong. The line my $radius_ref = @data; is putting the value 4 in $radius_ref not a ref to data. Instead you could try  [@data] or just don't use a ref and do foreach  $radius(@data) {