Perl Split and Iterate Over an Array Code

my @values = split(',', $data);

  foreach my $val (@values) {
    print "$val\n";
  }