Select Code to Download

#!/usr/bin/perl -w
use strict;
...
@{$x{'hcon'}} = sort @{$x{'hcon'}};

print Dumper \%x;