The algorithm would be:

• Open the file
• In a loop, read the input
• chomp, then split the input on white space
• use the last field as a hash key, and "push" the first field into the HOA (Hash-of-Arrays) structure (Please research HOA at this site)
• End loop (Keep reading till you have all info)
• Loop through the collected hash structure, and print the info

G'day khacee,

Welcome to the monastery.

"I want to get this output but i dont know how to start with array."

Given your question, I'll assume you've already written the code to read your input file. It's better if you post the code to the point where you got stuck: you'll get a better answer that way. This is all explained in: How do I post a question effectively?

Each line appears to consist of a "player" and a "tableid". Use the split function to separate these.

The "tableid" is repeated for multiple "players"; so use that as a hash key pointing to an arrayref of associated "players". Use the push function to add new "players" as you read them from your input.

It's preferable to show code and data within <code>...</code> tags. You've used <p>...</p> tags here; this makes it difficult to see exactly what formatting you wanted for your output. This is explained in: Markup in the Monastery

The following commandline code should serve as a starting point for your program. As already mentioned, without knowing how far you managed get before asking for help, it's difficult to know what help to provide.

$ perl -Mstrict -Mwarnings -E '
    my %input;
    while (<>) {
        push @{$input{$_->[1]}} => $_->[0] for [split];
    }

    for (sort { $a <=> $b } keys %input) {
        say "Tableid: $_";
        print q{Player: };
        say for @{$input{$_}};
        say q{Total: }, scalar @{$input{$_}};
    }
'
kapp2cape1111 224
kapp2cape1113 224
kapp2cape1112 224
kapp2cape1111 225
kapp2cape1113 225
kapp2cape1112 225
Tableid: 224
Player: kapp2cape1111
kapp2cape1113
kapp2cape1112
Total: 3
Tableid: 225
Player: kapp2cape1111
kapp2cape1113
kapp2cape1112
Total: 3
[download]

If you need further help, please read the guidelines I've linked to, and follow them, before posting again.

Try this too...

use strict;
use warnings;
use Data::Dumper;

my %hash;

while(<DATA>)
{
    my ($player,$tableid) = split;
    if (exists $hash{$tableid})
    {
        push ($hash{$tableid},$player);
    }
    else
    {
        $hash{$tableid} = [$player];
    }

}

print Dumper \%hash;

while(my($tableid,$player) = each(%hash))
{
    print "\n\nTableid:$tableid\n";
    print "\nPlayer:".join("\n",@{$player});
    print "\nTotal:". scalar @{$player};
}

__DATA__
kapp2cape1111 224
kapp2cape1113 224
kapp2cape1112 224
kapp2cape1111 225
kapp2cape1113 225
kapp2cape1112 225
[download]

I'm guessing that hashes, references, and autovivification are beyond the op's skills at this point. I suggest that you:

1. Create two arrays: @names224, @names225.
2. Read each line and chomp() it.
3. split() the line.
4. If the second element in the array returned by split() is == to 224, then push() the first element of the array returned by split() onto @names224.
5. If the second element in the array returned by split() is == to 225, then push() the first element of the array returned by split() onto @names225.
6. The number of items in an array can be found by assigning the array to a scalar variable.

Good luck.