print map { $data{$_} } sort keys %data;