my $data = $_[0];
foreach(@$data){ #These three lines I wanted to replace
$length_of_data++;
}