#!perl -w
@array1 =("tmp0.size", "tmp0.buffersize", "tmp0.value", 
          "tmp1.size","tmp1.buffersize", "tmp1.value");
@array2 = ("size", "buffersize");

my %patterns = map {(qr/\.$_$/, 0)} @array2;
my @result;

COL: for my $col (@array1) {
    for my $pat (keys %patterns) {
        if ($col =~ /$pat/) {
            push @result, $col unless ($patterns{$pat}++);
            next COL;
        }
    }
    push @result, $col;
}

print "$_\n" for @result;
[download]

-sauoq
"My two cents aren't worth a dime.";