In[]:=
data=
4154
0.40
0.50
0.01
0.65
4144
0.30
0.6
0.11
0.54
4146
0.20
0.7
0.21
0.63
4147
0.10
0.8
0.31
0.62
4148
0.11
0.9
0.41
0.61
;​​modelNumbers=data[[All,1]]​​PopupMenu[Dynamic[model],modelNumbers]​​Dynamic[model]
Out[]=
{4154,4144,4146,4147,4148}
Out[]=
4154
Out[]=
4154