my @last_columns;
while ( my $line = <DATA> ) {
    if ( $line =~ /TEST FOR VARIANCES/ ) {
        if ( $line =~ /([.\d]+)[\s|]*$/ ) {
            $last_column = $1;
            push @last_columns, $1;
        }
    }
}
print "$_\n" for @last_columns;