- or download this
@list = (
{fname => 'Jan', lname => 'Krynicky',
...
birth_date => 'Aug 24 1973', #...
},
);
- or download this
use Date::Calc qw(Decode_Date_US);
use Data::Dumper;
...
} @list;
print Dumper(\@sorted);
- or download this
$VAR1 = [
'HASH(0x18db494)',
'HASH(0x224e9c)',
'HASH(0x224fa4)'
];