use warnings;
use strict;
use CGI qw(:standard);

my @acc = qw( 12345 67895 123445 112288 3736666 445899 );

print popup_menu({
    -name => "account",
    -values => \@acc,
});