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

##</code><code>##

@result= sort {$order{$a->[0]} <=> $order{$b->[0]}} @connections;