First, "progressive sorting" does not work as expected: Each sort step destroys the order created by the previous sorts. You need to use the || operator as described in the above answers.

Second, to sort your line speeds, create a hash that converts the names to sortable numbers:

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

Now, you can sort line speeds. Suppose that your list @connections contains records with the line speed in the first element (index 0). Thus,

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