use JSON::XS; use strict; my $abfahrenString = '[["S3","Dresden, Plauen","1"],["S1","Dresden, Flughafen","2"],["RE01","Meissen","10"],["ICE","Hamburg, Neugraben","15"]]'; my @keys = qw(ZugNr Richtung Minuten); my @abfahrten = sort { $a->[2] <=> $b->[2] } @{decode_json $abfahrenString}; print "Content-type: text/html\n\n"; print '', "\n"; print "
$_ | " for @keys; print "
---|
$_ | " for @$zug; print "