my @sortedkeys = map {
  $$_[0]
} sort {
  $$a[1] <=> $$b[1]
} map {
  $$etcpw{$_} =~ /[:](\d+)/;
  [$_, $1]
} keys %$etcpw;