#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use List::Util qw(sum shuffle);

my %data;
my @row_nums = shuffle 1..5;

<DATA>;
while (<DATA>) {
    my ($old_row, @values) = split;
    my $new_row = shift @row_nums;
    $data{$new_row} = sum @values;
}

say $data{$_} for sort { $a <=> $b } keys %data;

__DATA__
Head1	Head2	Head3	Head4	Head5	Head6	Head7	Head8	Head9	Head10	Head11
1   0   1   1   0   0   0   0   0   0   1
2   0   0   0   0   0   0   0   1   0   0
3   1   0   0   0   1   0   0   0   1   0
4   0   1   1   1   1   0   0   0   0   1
5   0   0   0   0   0   0   0   1   0   0