while (my $row = $sth->fetchrow_hashref) {  
	for my $k (keys %$row) {
		print qq|$k: $row->{$k}\n|;
	}
}

# Output
# Year: 2014
# Major: 0
# SDescr: -
# LDescr: -
# Obj: 20140000020