my @orgsteps; 
while ($ref =~ /^Stepnames=(.*?)$/gm) { 
     my $match = $1; 
     push @orgsteps, split /[,\s]/, $match; 
}