my @data = (Some existing values);
my @column = <Read 125 values from some file>;

for my $index(@columns){
   .. use $data[$index] 
}