This is essentially about a data structure to hold the data you need.

Here is one way to do it .. I was not clear on what analysis you wanted so it is a simple sum: 

use strict;
use warnings;

my %info;
open my $id_file,"<","data01.txt" or die "NO ID FILE: $!";

while(<$id_file>){
    chomp;
    my ($fileext,$name) = split;
    my ($column) = $fileext=~m/^(\d+)/ or next;
    $info{$fileext}{NAME}      = $name;
    $info{$fileext}{COLUMN}    = $column;
    $info{$fileext}{ATT_COUNT} = 0;
}
close $id_file;

my @column_att;
for (keys %info) {
    $column_att[ $info{$_}{COLUMN} ] = \$info{$_}{ATT_COUNT}; # For ef
+ficiency
}
open my $attr_file,"<","data02.txt" or die "NO ATTR FILE: $!";

while (<$attr_file>){
    chomp;
    next unless m/^\d+\s+[01\s]+$/;
    my @atts = split;
    for (my $i=1; $i<=$#atts;$i++){
        ${$column_att[$i]} += $atts[$i];
    }
    #$. < 4 and print "$. --- \n", Print_info();
}
close $attr_file;

Print_info();
exit 0;
#--------------------------
sub Print_info{
    for (sort {$info{$a}{COLUMN} <=> $info{$b}{COLUMN}} keys %info){
        print "$_  \t",$info{$_}{ATT_COUNT},
              "   \t $info{$_}{NAME}\n";
    }
}

[download]
OUTPUT: 
1.file.ext      10        Square
2.file.ext      12        Triangle
3.file.ext      15        Circle
4.file.ext      12        Square
5.file.ext      12        Triangle
6.file.ext      15        Circle
7.file.ext      15        Circle
8.file.ext      17        Rectangle
9.file.ext      17        Rectangle
10.file.ext      15        Circle
11.file.ext      12        Triangle
12.file.ext      12        Triangle
13.file.ext      12        Square
14.file.ext      17        Rectangle
15.file.ext      17        Rectangle
16.file.et      12        Square

[download]

                Memory fault   --   brain fried

In reply to Re: Best way to store/access large dataset? by NetWallah
in thread Best way to store/access large dataset? by Speed_Freak

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.