#!/usr/bin/perl
use strict "vars";
my $mojtekst=
my @lista=
my %hash=
my $value=
open(UCHWYT, "plik.txt");
while ()
{
my $temp=$_;
#$temp=~ tr/ą/a/;
#ęĘśŚćĆżŻźŹńŃóÓłŁ eEsScCzZzZnNoOlL
$temp=~ tr/[a-z][A-Z]ąĄęĘśŚćĆżŻźŹńŃóÓłŁ/\t/c;
$mojtekst="$mojtekst $temp";
}
#print "Witaj Pati\n";
@lista=split(" ", $mojtekst);
#print "@lista\n";
foreach (@lista)
{
if (exists $hash{$_})
{
$hash{$_}++;
}
else
{
$hash{$_}=1;
}
}
#print %hash;
foreach $value(sort {$hash{$b}cmp $hash{$a} } keys %hash)
{
print "$value $hash{$value}\n";
}