my @samples= ('a,b,stuff', 'b, c , more stuff');
foreach my $line (@samples) {
   # work with $line here
   }