my $n=1; 
for (qw(115kbps 2Mbps 10Mbps T1)) {$order{$_}=$n++}