#!/usr/bin/perl --

use CGI;
print CGI->popup_menu(
    -values => ['a', 'b'],
    -labels => {'a', 'labela', 'b', 'labelb'},
    -attributes => {
        'a' => { title => 'titlea' },
        'b' => { title => 'titleb' },
    },
);
__END__
<select name="" >
<option title="titlea" value="a">labela</option>
<option title="titleb" value="b">labelb</option>
</select>