#!/usr/bin/perl

use strict;
use warnings;

my $uid = 1;
my $uid_max = 4;
my $link = 'http://www.vinnplasma.se/index.php?step=3&uid=';
my @users;
my $pid;

while ($uid < $uid_max) {
    print "Current UID: $uid\n";
    $pid = open(WEB, "-|", qq(links -dump '$link$uid'));

    my $i = 0;
    while (<WEB>) {
        if (/: (\d+) st/) {
            $users[$uid][$i] = $1;
            $i++;
        }
    }

    wait;
    close WEB;

    $uid++;
}


my $i = 1;
@users =
map { $_->[0] }
sort { $b->[1] <=> $a->[1] }
map { [ $_, $_->[$i]  ] } @users;

#for (@users) { 
#    @$_ = sort { $b <=> $a } grep { $_ == $_ } @$_;
#}

$i = 1;
print "\n\n";
for (@users) {
    print "UID($i):\n";
    foreach (@$_) {#!/usr/bin/perl

use strict;
use warnings;

my $uid = 1;
my $uid_max = 4;
my $link = 'http://www.vinnplasma.se/index.php?step=3&uid=';
my @users;
my $pid;

while ($uid < $uid_max) {
    print "Current UID: $uid\n";
    $pid = open(WEB, "-|", qq(links -dump '$link$uid'));

    my $i = 0;
    while (<WEB>) {
        if (/: (\d+) st/) {
            $users[$uid][$i] = $1;
            $i++;
        }
    }

    wait;
    close WEB;

    $uid++;
}


my $i = 1;
@users =
map { $_->[0] }
sort { $b->[1] <=> $a->[1] }
map { [ $_, $_->[$i]  ] } @users;

#for (@users) { 
#    @$_ = sort { $b <=> $a } grep { $_ == $_ } @$_;
#}

$i = 1;
print "\n\n";
for (@users) {
    print "UID($i):\n";
    foreach (@$_) {
        print " " . $_ . "\n";
    }

    print "\n";
    $i++;
}

        print " " . $_ . "\n";
    }

    print "\n";
    $i++;
}