my %speeds = (115kbps => 10,
              2Mbps => 20,
              10Mbps => 30,
              T1 LINE => 40);

my @sorted = sort { $speeds{$a} <=> $speeds{$b} } @unsorted;