<% foreach my $k ( @{$piano} ) { %> <% if ($k->{'note'}) { %> <% } %> <% } %> <% foreach my $w ( ('sine', 'square', 'triangle', 'sawtooth', 'trapezium', 'exp', 'whitenoise', 'tpdfnoise', 'pinknoise', 'brownnoise', 'pluck') ) { %> {'waveform'}) { %>selected <% } %>><%= &subs::format_name($w) %> <% } %> <% foreach my $sd ( qw/browser sox ws/ ) { %> {'destination'}) { %>selected <% } %>><%= &subs::format_name($sd) %> <% } %>