@statements = sort by_date @statements;

sub by_date {
	my $dateA = $a->{statement_date};
	my $dateB = $b->{statement_date};
	$dateA =~ s!(\d\d)/(\d\d)/(\d\d\d\d)!$3$1$2!;
	$dateB =~ s!(\d\d)/(\d\d)/(\d\d\d\d)!$3$1$2!;
	$dateA cmp $dateB;
}