#!/usr/bin/perl

use warnings;
use strict;

my $enum_types = "'On Order','Waiting, Pending Payment','Dispatched','Cancelled','Renewal','Amen'ded'";

foreach my $enum_type ( split /(?:^'|','|'$)/, $enum_types ) {
    print qq[<option value="$enum_type">$enum_type</option>\n];
}