Similar to Ovid's answer, but different syntax...

use Data::Dumper;
%hash = ( 
x=> 'line 1',
z=> [ 1, 2, 4],
y=> { file=> 'test.txt',
      length=> 200,
      type => 'ASCII'
    },
a=> 'line 2'
);

foreach(sort{ $a cmp $b } keys(%hash)) {
        print Dumper($hash{$_});
}
[download]

Rich36

---

There's more than one way to screw it up...

---