Select Code to Download

@foo = (1,4,76,2,5,1);
@bar = ('sdf', 'wrtvdf', 'erteg', 'dhrthy','rtyfgrty');
@baz = ( 'aa', 'bb', 'cc', 'dd', 'ee', 'ff');

@data = (
 {foo => 1, bar => 'sdf', baz => 'aa'},
...
 {foo => 5, bar => 'rtyfgrty', baz => 'ee'},
 {foo => 1, bar => undef, baz => 'ff'}, # did you notice we had one le
+ss @bar ?
);

@sorted = sort {$a->{foo} <=> $b->{foo}} @data;
#or
@sorted = sort {$a->{bar} cmp $b->{bar}} @data;