Select Code to Download

qq(<option value=").$_->{value} . qq(">) . $_->{ label } . qq(</option
+> )

>perl -wMstrict -le
"my @AoH = (
...
1 is spelled one
2 is spelled two
3 is spelled three