for my $line ( @data ) {
    $line->[-1] /= 1024;
}