open(FILE, '/location/data/p4.txt') or die "Cant't open file: $!\n";
my %myhash = ();
my @data = ();

chomp(@data = <FILE>);
foreach (@data)	{
	%myhash = (@data => $k++);
}

foreach $k (sort {$a <=> %b} keys %myhash)	{
	print "$myhash{$k} : ". '*' x $myhash{$k} . "\n";
}