Help for this page

Select Code to Download

Select or download this
```
1
2
...
2
1
2
```

Select or download this

open(FILE, '/location/data/p4.txt') or die "Cant't open file: $!\n";
my %myhash = ();
my @data = ();
...
foreach $k (sort {$a <=> %b} keys %myhash)    {
    print "$myhash{$k} : ". '*' x $myhash{$k} . "\n";
}