for ($i=0;$i< scalar @wholesalerlist; $i++) {
   $wholesalerlist[$i] =~ s/^(the|an|a)\s(.+)$/$2, $1/i;
}