Select Code to Download

my @headers = split ' ', do{ my $raw = <DATA>; $raw =~ tr[",][ ]; $raw
+ }; #"
$line =~ tr[",][ ]; #"
push @{ $planes{ $aid } }, \%row;

next unless @{ $planes{ $aid } } > 1;

my $lat1 = $planes{ $aid }[ -2 ]{ latitude };
my $lat2 = $planes{ $aid }[ -1 ]{ latitude };

    my $lats1=51.4774704;
    my $lats2=51.4774704;
...
    my $x1 = cos( $lats1 /180 ) * sin( $lats2/180 ) - sin( $lats1/180 
+) * cos( $lats2/180 ) * cos( $dlons/180 );
    
    printf  "heading: %d\n", atan2( $y1, $x1 ) * 57.2957795

"rowid","aircraft_id","actual_date_time","latitude","longitude","radio
+_altitude","ground_speed","thrust_engine_1","thrust_engine_2","co2","
+nox"
11782888,685,2012-11-04 15:25:14,51.4774704,-0.458850861,-9.25,64.5,0.
+028000256,0.028713875,1.577894599,22.32443440
...
11782937,721,2012-11-04 15:25:27,51.47083282,-0.478762537,-7.0,0.0,0.0
+3167489,0.033474765,2.890677441,23.248813256
11782938,709,2012-11-04 15:25:27,51.46648407,-0.466918945,-9.0,18.25,0
+.077369954,0.068945601,4.145555193,28.59425937
11782939,685,2012-11-04 15:25:27,51.4774704,-0.463142395,-9.5,32.25,0.
+029427142,0.031564842,1.655488701,21.19210642