my %coords = ("061"=>[220,140],"062"=>[34,89],"074"=>[34,89]);

foreach my $coord (sort keys %coords) {
	foreach(@{ $coords{$coord} }) {
		print qq(Key: $coord Coordinate: $_\n) if $_;
	}
}
__DATA__
Key: 061 Coordinate: 220
Key: 061 Coordinate: 140
Key: 062 Coordinate: 34
Key: 062 Coordinate: 89
Key: 074 Coordinate: 34
Key: 074 Coordinate: 89