$count = 0;
while(<>) {
	s/[\r\n]//g;

	if ( !defined( $data{$_} ) ) {
		$data{$_} = 0;
		$data_name[$count] = $_;
		$count++;
	}

	$data{$_}++;
		
}
for ( $i = 0; $i < $count; $i++ ) {
	printf( "%s\t%d\n", $data_name[$i], $data{$data_name[$i]} );
}
exit;